Multiplicar un edit con separador de miles

[ecfisa]

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])); // Multiplicar
  Edit2.Text:= FloatToStrF(n1, ffNumber, 20, 2);  // Mostrar

  //...
  ThousandSeparator:= Sep[1];
  DecimalSeparator:= Sep[2];
end;

Saludos.

Edito: Por supuesto que, como menciona Casimiro, sin quitar previamente las comas no es posible.

[rufo]

Gracias amigo ecfisa tu ejemplo que me pusiste me sirvio de mucho ya me quedo listo.