Problem Mit FloatToStr

[inherited]

sooviele fragen?? nagut also mit erg2 soll man weiterarbeiten(warum ich keine funktion nutze: keine ahnung) deswegen global
erg3,4,5 sind deshalb global weil ich sie nur zur fehlerüberprüfung genutzt habe und sie eben mal deklariert hab.
was da reingeht ist eine zahl als string im format 100,01 o.ä. es soll beträge die eingegeben werden auf 3 nachkommastellen runden

Für alternativen/verbesserungen bin ich stets offen, solang sie delphi 3 kompatibel sind

edit: kann es sein das es am if ... or if... liegt?