versuchs mal damit
Delphi-Quellcode:
var HELP : String;
begin
HELP := '2000789000123';
HELP := Format('%1.0n',[StrToFloat(HELP)] );
und wenn du die tausender formatieren must dann
function Format(const Format: string; const Args: array of const; const FormatSettings: TFormatSettings): string;