[cloayza]

Deberías hacer uso de DecimalSeparator y ThousandSeparator:

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);
var
value:Single;
begin
     value:=1200.34;

     Memo1.Lines.Add('Value:'+FloatToStr(value));

     {Cambio Decimal=, Miles=.}
     FormatSettings.DecimalSeparator:=',';
     FormatSettings.ThousandSeparator:='.';

     Memo1.Lines.Add('(9.999,9) Value:'+formatFloat('#,###.0',value));

     {Cambio Decimal=. Miles=,}
     FormatSettings.DecimalSeparator:='.';
     FormatSettings.ThousandSeparator:=',';

     Memo1.Lines.Add('(9,999.9) Value:'+formatFloat('####.0',value));
end;

Espero te ayude, saludos cordiales