procedure TForm1.FormCreate(Sender: TObject); begin randomize; end; procedure TForm1.Button1Click(Sender: TObject); var x : integer; begin // 0 <= x < 10 x := random(10); // 5 <= x < 15 x := 5+ random(10); end;