كيف اطبع 200 رقم عشوائي

[hanipino]

السلام عليكم

PHP كود :

procedure Add_Nbr(S : TStrings; X,Y,MaxCount : LongInt);
var
 I : LongInt;
begin
  repeat
   Randomize;
   I := RandomRange(X,Y);
   if S.IndexOf(IntToStr(I)) < 0 then
    S.Add(IntToStr(I))
   else;
  until (S.Count-1 = MaxCount);
end; 


PHP كود :

procedure TForm1.btn1Click(Sender: TObject);
begin
  Add_Nbr(lst1.Items,100000,999999,200);
end;