нерандомный рандом

[woo]

нужно генерить 4рех значные числа, в которых не должно быть повторяющихся цифр.

procedure TForm1.Button1Click(Sender: TObject);
var
i:shortint;
begin
i:=0;

a:=random(10);

while i=0 do
begin
b:=random(10);
if b <> a then i:=1;
end;

i:=0;

while i=0 do
begin
c:=random(10);
if (c <> a) and (c <> b) then i:=1;
end;

i:=0;

while i=0 do
begin
d:=random(10);
if (d <> a) and (d <> b) and (d <> c) then i:=1;
end;

memo1.lines.append(
inttostr(a) +
inttostr(b) +
inttostr(c) +
inttostr(d)
);

end;

запускаю прогу, тыкаю несколько раз на кнопку и получаю всегда одинаковую последовательность:
0826
3140
4082
9376
8731
3428
2418
2794
8015
0576

как сделать рандом более рандомным?

[Карась]

Написать Randomize;

procedure TForm1.Button1Click(Sender: TObject);   
var  
i:shortint;   
begin  
i:=0;   
Randomize; 
a:=random(10);   
  
while i=0 do  
begin  
b:=random(10); 

.........

[_Engine_]

Добавлю свои пять копеек.
Можно еще менять значение RandSeed.

[woo]

Спасибо, с Randomize; работает.