[delpi12]

цифры не повторялись

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  int   : Integer;
  i     : Integer;
begin
for i := 1 to 1 do
  begin
    int := Randomrange(spinedit1.value,spinedit2.value);
label1.Caption:=label1.caption +#13#10 + IntToStr(int);
  end;
end;