[Monchi]

Yo tuve el mismo drama hace unos dias de tener que usar ese formato con separador de miles, y despues de sacarlo para podes hacer los calculos, y lo hice con una funcion en una clase que mediante un While va borrando la puntuacion de miles

Código Delphi [-]
function tCurrencyFormat.ReturnsCurrencyValue(number: string):string;
var
  Separator:string;
begin
  separator:=thousandseparator;
  while pos(separator,number)<>0 do
    delete(number,pos(separator,number),1);
  result:=number;
end;

Y en sentido inverso para mostrar un valor con separadores (esta con 2 decimales pero podes adaptarlo a tu gusto)

Código Delphi [-]
function tCurrencyFormat.FormatCurrency(number: Currency):string;
begin
  result:=currtostrf(number,ffnumber,2);
end;

Espero te sirva esto, saludos!