Hola rufo.
No me genera ningún inconveniente.
Por ejemplo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
Suma,n1: 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);
n1:= 3.1415926 * StrToFloat(StringReplace(Edit1.Text,',','',[rfIgnoreCase])); Edit2.Text:= FloatToStrF(n1, ffNumber, 20, 2);
ThousandSeparator:= Sep[1];
DecimalSeparator:= Sep[2];
end;
Saludos.
Edito: Por supuesto que, como menciona Casimiro, sin quitar previamente las comas no es posible.