Изменение цвета текста в Panel1

[Dark Raven]

Вот простенький тест:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    RadioGroup1: TRadioGroup;
    Label3: TLabel;
    RadioGroup2: TRadioGroup;
    Label4: TLabel;
    RadioGroup3: TRadioGroup;
    Label5: TLabel;
    RadioGroup4: TRadioGroup;
    Label6: TLabel;
    RadioGroup5: TRadioGroup;
    BitBtn1: TBitBtn;
    Panel1: TPanel;
    Button1: TButton;
    procedure RadioGroup1Click(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
    procedure RadioGroup3Click(Sender: TObject);
    procedure RadioGroup4Click(Sender: TObject);
    procedure RadioGroup5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  sum: byte;

implementation

{$R *.dfm}

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
sum:=0;
If RadioGroup1.ItemIndex=1 then
sum:=sum+1;
end;

procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
If RadioGroup2.ItemIndex=0 then
sum:=sum+1;
end;

procedure TForm1.RadioGroup3Click(Sender: TObject);
begin
If RadioGroup3.ItemIndex=2 then
sum:=sum+1;
end;

procedure TForm1.RadioGroup4Click(Sender: TObject);
begin
If RadioGroup4.ItemIndex=2 then
sum:=sum+1;
end;

procedure TForm1.RadioGroup5Click(Sender: TObject);
begin
If RadioGroup5.ItemIndex=1 then
sum:=sum+1;
Case sum of
0..2:Panel1.Caption:='Плохо, 2';
3:Panel1.Caption:='Удовлетворительно, 3';
4:Panel1.Caption:='Хорошо, 4';
5:Panel1.Caption:='Отлично, 5';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Filename:string;
begin
Filename:=Application.ExeName;//Получаем имя файла
Close;//Закрываем приложение
WinExec(PChar(FileName),SW_SHOW);//Открываем файл


end;

end.

Как сделать так, чтобы надпись у каждой оценки была разным цветов, т.е когда оценка 5 она красным цветом, когда 4 – она синим цветом и т.д.

[Slym]

procedure TForm1.RadioGroup5Click(Sender: TObject);
const
SumText:array[2..5] of string =('Плохо, 2','Удовлетворительн о, 3','Хорошо, 4','Отлично, 5');
SumColor:array[2..5] of TColor =(clWhite,clGreen,clBlue,clRed);
begin
If RadioGroup5.ItemIndex=1 then
sum:=sum+1;
sum:=min(5,max(sum,2));
Panel1.Caption:=SumText[sum];
Panel1.Font.Color:=SumColor[sum];
end;

[Dark Raven]

Здесь какая та ошибка вылазиет:

sum:=min(5,max(sum,2));

[phomm]

кошмар... справка находится от Вас на расстоянии 1 размаха пяди руки (F1 если что, раздел min function или max function, курсор на слово min/max в редакторе кода и F1) и там написано Unit math , это значит надо добавить в uses вашего Unit'a этот модуль math, получится примерно так:

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, math ;

И наперёд: выкладывайте то, что среда дельфи написала про ошибку, в данном случае, я полагаю, Undeclared identifier