рэндомное присваивание чисел в Delphi

[Lorden]

народ подскажити как в Delphi рэндомно выбирать числа? вот есть такой код:

a:=random(2);
case a of
0: Edit2.Text:='2';
1: EDit2.Text:='3';
end;
b:=random(10);
case b of
0: Edit3.Text:='0';
1: Edit3.Text:='1';
2: Edit3.Text:='2';
3: Edit3.Text:='3';
4: Edit3.Text:='4';
5: Edit3.Text:='5';
6: Edit3.Text:='6';
7: Edit3.Text:='7';
8: Edit3.Text:='8';
9: Edit3.Text:='9';
end;
c:=random(10);
case c of
0: Edit4.Text:='0';
1: Edit4.Text:='1';
2: Edit4.Text:='2';
3: Edit4.Text:='3';
4: Edit4.Text:='4';
5: Edit4.Text:='5';
6: Edit4.Text:='6';
7: Edit4.Text:='7';
8: Edit4.Text:='8';
9: Edit4.Text:='9';
end;

по идее всегда должны появлятся новые цифры в эдитах но уменя почемуто всегда 1 число это 280 второй раз 282 третий раз 350 и т.к. и это всегда 100% так, подскажити как действительно сделать рэндамную выборку? заранее благодарю.

[UnChanter]

Сообщение от Lorden

по идее всегда должны появлятся новые цифры в эдитах но уменя почемуто всегда 1 число это 280 второй раз 282 третий раз 350 и т.к. и это всегда 100% так, подскажити как действительно сделать рэндамную выборку? заранее благодарю.

поставь в самом начале кода:

Randomize;

[Greblin]

О Господи, а нельзя вот это

case b of
0: Edit3.Text:='0';
1: Edit3.Text:='1';
2: Edit3.Text:='2';
3: Edit3.Text:='3';
4: Edit3.Text:='4';
5: Edit3.Text:='5';
6: Edit3.Text:='6';
7: Edit3.Text:='7';
8: Edit3.Text:='8';
9: Edit3.Text:='9';
end;

заменить на

Edit3.Text := IntToStr(b);