[ecfisa]

Hola rufo.

Si el formato que estás queriendo utilizar es: [miles] , [cent_dec_uni] . [decimales], vas a tener que hacer algo similar al lo que te sugiere Marcos.

Probá de este modo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Suma: Extended;
 i: integer;
 s: string;
 Sep: string[2];
begin
  Sep[1]:= ThousandSeparator;
  Sep[2]:= DecimalSeparator;
  DecimalSeparator:= '.';
  ThousandSeparator:= ',';
  Suma:= 0;
  for i:= 0 to Memo1.Lines.Count - 1 do
    suma := suma + StrToFloat(StringReplace(Memo1.Lines[i], ',' ,'' ,[rfIgnoreCase]));
  Edit1.Text:= FloatToStrF(Suma, ffNumber, 20, 2);
  //...
  ThousandSeparator:= Sep[1];
  DecimalSeparator:= Sep[2];
end;

Saludos.