Hola giulichajari.

Para saber la definicion de los separadores que tenes configurada, sería útil si copiaras desde el Memo (y pegaras aqui) el resultado de ejecutar este código:

Código Delphi [-]
...
begin
  Memo1.Font.Name:= 'Currier';
  Memo1.Text:= Format('S. mil: %s %sS. dec: %s',
    [ThousandSeparator, #$A#$D#$A#$D, DecimalSeparator]);
end;

Saludos :)

Agrego un Memo y le paso la suma de los valores?Probe hacer el edit y usa el punto para los dos casos. Como se cambia esto?

Hola giulichajari.
Si usas el punto tanto para separador de miles como de decimales, habría que hacer un pequeño cambio a la función anterior:

Código Delphi [-]
...
{ definir punto como separador de miles y decimales }
procedure TuForm.FormCreate(Sender: TObject);
begin
  DecimalSeparator := '.';
  ThousandSeparator:= '.';
  Application.UpdateFormatSettings:= False;
end;

function UnFormatCurr(const CurrValue: string): string;
begin
   Result:= CurrValue;
   Result:= StringReplace(Result, '$', '', [rfReplaceAll]);
   Result:= StringReplace(Result, '.', '', []); // <<-- cambio
end;

Saludos:)

No seria:

Código Delphi [-]
procedure TuForm.FormCreate(Sender: TObject);
begin
  DecimalSeparator := ',';{coma para decimal}
  ThousandSeparator:= '.';
  Application.UpdateFormatSettings:= False;
end;

Hola giulichajarí
No si es como comentas en este mensaje:
En ese caso el signo "$" y el primer "." impiden el formato al no coincidir con el formato establecido.

De todos modos es una forma muy frágil de obtener el valor ya que depende de las configuraciones locales de los equipos en que funciona la aplicación. Sería mucho mejor tener almacenado el valor que mostras en el Edit en una variable (privada al formulario o global a la unidad) y te evitas todo este lío.

Saludos :)