產生了範圍隨機數 條件可以自己改

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;