Zufallszahl mit Kommerstellen

[mkinzler]

Und dies ist völlig überflüssig

Delphi-Quellcode:

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

Wenn du zum letzen willst einfach
form1.adoquery1.Last;