Random Problem

[Unplugged]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  x             : Integer;
begin
  Randomize;
  for x := 1 to 10 do
    ListBox1.Items.Append(IntToStr(Random(StrToInt(Edit2.Text) - StrToInt(edit1.Text)) + StrToInt(Edit1.Text)));
end;

Hab ich gerade getestet und geht 1a unter Delphi 6

Edit1 : Min
Edit2 : Max

PS: Code ist nicht besonders elegant :D

Edit: Da war wohl jemand schneller ^^