Hola a Todos
Por mi parte ese problema ya lo pase, usando
Numeric(18,2) o Numeric (18,1), ya que con (18,0) no resulto, en en nuestro Amado Delphi Use lo siguiente
Datos.DetcomDC_AFECTO.AsCurrency := Neto; Donde Neto : Currency
Neto := Datos.DetcomDC_AFECTO.AsCurrency;
Juan Carlos