Edit Kommastellen ?

[Hansa]

Jep, die obige Funktion ist völlig überflüssig.

    Cells [4,Row] := FloatToStrF (preis,ffFixed,8,2);