Problem mit Zufallspreis ermitteln

[DoktorD]

Hi. Ich versuche zur Zeit ein Programm zu schreiben, welches mir einen Zufallspreis innerhalb einer vorgegebenen Grenze ermittelt. Wichtig daber (und das genau bekomme ich irgendwie nicht hin) soll die Zufallszahl nur in 10 Cent Schritten erzeugt werden (also 1,50 / 1,90 ....)

Hat da jemand eine idee??? Meine Zufallspreise erzeuge ich mir zur Zeit mit

Delphi-Quellcode:

OG := StrToInt(FloatToStr(StrToFloat(maxOG.Text)*10));
UG := StrToInt(FloatToStr(StrToFloat(maxUG.Text)*10));
aktuellerPreis := RandomRange(UG,OG);
aktuellerPreis:= aktuellerPreis / 10;
Label2.Caption:= FloatToStr(aktuellerPreis);

Danke für Eure Antworten im Voraus!!!