Das Problem ist das Trunc
es schneidet den Nachkommateil ab
deswegen kommt immer 0 raus, so dürfte es besser sein.
Delphi-Quellcode:
procedure Form1.Zufallszahl_bilden();
var
Zufallszahl: extended;
Wert: string;
begin
Zufallszahl:= (random(1));
randomize;
Wert:= FormatFloat('0.00', Zufallszahl);
showmessage(floattostr(Wert);
end;