Zufallszahl mit Kommerstellen

[daNiii]

Vielen Dank für eure Antworten. Mein Problem ist trotzdem noch nicht gelöst.
hier mein derzeitiger Code:

Delphi-Quellcode:

procedure TPool.FormClose(sender: Tobject; var Action: TCloseAction);
begin
Zufallszahl_bilden(); // in dieser procedure wird die Zufallszahl gebildet, var Zufallszahl: extended;
form1.Adoquery1.close;
form1.adoquery1.sql.add('update Tabelle set Wert = '+floattostr(Zufallszahl));
form1.adoquery1.exesql;

while not form1.adoquery1.eof do begin 
form1.adoquery1.next;
end;
form1.adoquery1.close;
end;

ich hoffe mir kann jemand helfen