Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Font.Color:=random(2147483647); //max. positives integer
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;
nachdem es ja nu imt dem button nicht ging, hier ein beispiel am label
vorher am besten im FormCreate "randomize;".
gruss haegar