Zufallfarbe

[Maduser]

Danke euch allen.

Ich habe das jetzt so gemacht

Delphi-Quellcode:

type
 TStandardFarben = array[0..15] of TColor;


const
  CStandardFarben: TStandardFarben = (clBlack, clMaroon, clGreen, clGreen,
    clOlive, clNavy, clPurple, clTeal, clGray, clSilver, clRed, clLime,
    clYellow, clBlue, clFuchsia, clAqua);

function GetRandomColor: TColor;
begin
  GetRandomColor := CStandardFarben[Random(15)];
end;