Сравнение цветов

if panel1.Color:=clGreen
and  panel15.Color:=clGreen then
label1.Caption:=a+1;

procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
a:=100;
if (panel1.Color=clGreen)
and  (panel5.Color=clGreen) then
label1.Caption:=inttostr(a+1);
 
end;

k:=random(2);
if k=0 then panel15.Color:=clGreen else  panel15.Color:=cRed;

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize(); // надо вызвать один раз, в событии FormCreate вполне пойдёт
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const MyColors: array [0..2] of TColor = (clRed, clGreen, clBlue); // список допустимых цветов, три цвета - с индексами от 0 до 2
begin
Panel1.Color:=MyColors[RandomRange(Low(MyColors), High(MyColors)+1)]; // берём случайный цвет из списка, нужен модуль Math
end;

procedure TForm1.Button1Click(Sender: TObject);
const MyColors: array [0..2] of TColor = (clRed, clGreen, clBlue);
var Col: TColor;
begin
repeat
    Col:=MyColors[RandomRange(Low(MyColors), High(MyColors)+1)];
    until (Col<>Panel1.Color);
Panel1.Color:=Col;
end;