[[egostar]]

Hola jzginez y porque no mejor antes de grabar el dato reemplazas los caracteres en una variable.

Puedes hacer algo así:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  SinFormato: String;
begin
  SinFormato := '$1,540.00';
  SinFormato := StringReplace(Cadena,'$','',[rfReplaceAll]);
  SinFormato := StringReplace(Cadena,',','',[rfReplaceAll]);
  // Generas lo que quieras con la variable SinFormato.
end;

Salud OS.