Problem mit Zufallspreis ermitteln

[Corpsman]

Probiers mal mit

Delphi-Quellcode:

Var
  og, ug: Integer;
  aktuellerPreis: integer;
Begin
  OG := StrToInt(FloatToStr(StrToFloat(edit1.Text) * 10));
  UG := StrToInt(FloatToStr(StrToFloat(edit2.Text) * 10));
  aktuellerPreis := Random(OG - ug + 1) + ug;
  Label2.Caption := FloatToStr(aktuellerPreis / 10);
End;