procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin //产生了100-999的数 条件可以自己改
Randomize;
i := random(999);
while (i < 100) do
i := random(999);
edit1.Text:=inttostr(i);
end;
第二种方法 单元添加user math
procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
randomize;
a:=randomrange(50,99);
edit1.Text:=inttostr(a);
end;