Помогите подшаманить...

[Vladimir-belikov]

надо написать програмку, кот. убирает по таймеру поочередно и рандомно 6 из 7-и элементов, после чего выводит сообщение или просто надпись, закрепленную за этим объектом. В общем то все работет Но! не могу догнать чего не хватает чтобы числа, выбранные рандомом не повоторялись.
вот код:

procedure TForm4.Timer1Timer(Sender: TObject);
var
i,n:integer;
begin
Randomize;
for i:=1 to 6 do
begin
n:=Random(7);
Case n of
1: begin Form4.Shape8.Visible:=False;
Form4.Label1.Caption:='1';
end;
2: begin Form4.Shape2.Visible:=False;
Form4.Label1.Caption:='2';
end;
3: begin Form4.Shape3.Visible:=False;
Form4.Label1.Caption:='3';
end;
4: begin Form4.Shape4.Visible:=False;
Form4.Label1.Caption:='4';
end;
5: begin Form4.Shape5.Visible:=False;
Form4.Label1.Caption:='5';
end;
6: begin Form4.Shape6.Visible:=False;
Form4.Label1.Caption:='6';
end;
7: begin Form4.Shape7.Visible:=False;
Form4.Label1.Caption:='7';
end;
end;
Form4.Label1.Visible:=True;
Form4.Timer1.Enabled:=False;
end;

[Sazary]

Но! не могу догнать чего не хватает чтобы числа, выбранные рандомом не повоторялись.

Randomize;

нужно вызывать только один раз (например, при показе формы).

В дополнение можно еще завести глобальный массив, куда помещать уже выпадавшие числа. И при генерации нового пробегаться по массиву (ну или через множество сделать) и если такое число уже было, то генерить заново.