![](http://images0.cnblogs.com/blog/300447/201407/291714010248128.png)
procedure TForm1.Button1Click(Sender: TObject);
var
result:Integer;
i:Integer;
begin
Memo1.Clear;
for i:=0 to 10 do
begin
Randomize;
Result:=Random(1000)+1;
Memo1.Lines.Add(IntToStr(result));
end;
end;
var
result:Integer;
i:Integer;
begin
Memo1.Clear;
for i:=0 to 10 do
begin
Randomize;
Result:=Random(1000)+1;
Memo1.Lines.Add(IntToStr(result));
end;
end;