Вывод нужных цветов рандомом

[-=M{a}LoY=-]

Нужно в массив записать рандомом цвета ...
Пишу ...

for i:=1 to 4 do
n[i]:=random(clWhite, clRed, clBlue, clYellow, clGreen, clBlack, clLime, clAqua );

Мне пишет ...

"Unit1.pas(302): ')' expected but ',' found "
"Unit1.pas(315): ';' expected but 'IF' found"

Подскажите пожалуйста, как сделать правильно или что не так?

[dmitriegorovih]

var
  Form1: TForm1;
  n:array [1..100] of Tcolor;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
randomize;
for i:=1 to 4 do begin
n[i]:=rgb(random(255),random(255),random(255));
end;
end;

или из нужного списка

var
  Form1: TForm1;
  n,co:array [1..100] of Tcolor;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
randomize;
co[1]:=clWhite;
co[2]:=clRed;
co[3]:=clBlue;
co[4]:=clYellow;
co[5]:=clGreen;
co[6]:=clBlack;
co[7]:=clLime;
co[8]:=clAqua;
for i:=1 to 4 do begin
n[i]:=co[random(4)];
end;
end;

[Serge_Bliznykov]

опишите массив цветов, как константу.
А потом через random получайте индекс в этом массиве
например,

const
  CountOfColor = 8;
  Colors : array[0..CountOfColor-1] of integer
             =(clWhite, clRed, clBlue, clYellow, clGreen, clBlack, clLime, clAqua );

procedure TForm1.Button1Click(Sender: TObject);
var n:array[1..4] of integer;
  i : integer;
begin
  Randomize;
  for i:=1 to 4 do
    n[i] := Random(CountOfColor);
....
end;

p.s. разумеется, тут нет защиты от повтора цвета, т.е. в массив n могут попасть одинаковые цвета...

[-=M{a}LoY=-]

Спасибо большое ... заработало ...

p.s. разумеется, тут нет защиты от повтора цвета, т.е. в массив n могут попасть одинаковые цвета...

Если не тяжело не подскажите как сделать такую защиту ... ?

[Моторокер]

Заполнить второй массив случайными числами, отсортировать одновременно оба массива по данным второго массива. Теперь первый массив заполнен случайными цветами без повторов.