[ecfisa]

Hola giulichajari.

Si el contenido de la propiedad Text del TEdit que mencionas, tiene un formato como por ejemplo '$ 90.780,33', podrías hacer:

Código Delphi [-]
function UnFormatCurr(const CurrValue: string): string;
begin
   Result:= CurrValue;
   Result:= StringReplace(Result, '$', '', [rfReplaceAll]);
   Result:= StringReplace(Result, '.', '', [rfReplaceAll]);
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= '$ 1.250,25';
  Edit2.Text:= FloatToStr(StrToFloat(UnformatCurr(Edit1.Text)) + 1000);
end;

Saludos