Ich mache das immer mit Format.
Edit.Text := Format('%.0n', [Zahl + 0.00]);
... und "Zahl" kann man etwa so zuweisen:
Zahl := StrToInt(StringReplace(Edit.Text, '.','', [rfReplaceAll]));
So kann man evtl. bereits vorhandene Punkte zuvor aus dem Text eleminieren.
Insgesamt ist das etwas umständlich und das Rechnen mit Texten in Edits ist nicht unbedingt der sauberste Weg, aber so kann es zumindest erst mal funktionieren.