SQL utilizando parametros

[gaps2k]

Que tal colegas!!

Tengo un problema al querer utilizar sql con Parametros, pero cuando se ejecuta la consulta me aparece el mensaje de error:
'Los datos de cadena o binarios se truncarìan', alguien me puede decir a que se debe este mensaje y como puedo hacer para evitarlo.

De antemano muchas gracias por su tiempo.

PD: TRabajo con Delphi 7 y SQL 2000

Código Delphi [-]
     query := (' UPDATE MAESTRO_CLIENTES SET '+
      ' CEDULA = :CEDULA, NOMBRE = :NOMBRE, DIRECCION1 = IRECCION1,DIRECCION2 = IRECCION2, TELEFONOP = :TELEFONOP,'+
      ' FAX = :FAX, APARTADO = :APARTADO, EMAIL = :EMAIL, LIMITE_CREDITO = :LIMITE_CREDITO,'+
      ' APLICA_LIMITE= :APLICA_LIMITE, SALDO_CUENTA = :SALDO_CUENTA, DIAS_CREDITO = IAS_CREDITO, DESCUENTO = ESCUENTO, FECHA_ULTIMA_COMPRA = :FECHA_ULTIMA_COMPRA,'+
      ' NUMERO_ULTIMA_COMPRA = :NUMERO_ULITMA_COMPRA, MONTO_ULTIMA_COMPRA = :MONTO_ULTIMA_COMPRA, FECHA_INGRESO = :FECHA_INGRESO, ESTADO = :ESTADO, EXENTO = :EXENTO,'+
      ' RESENA_EXENTO = :RESENA_EXENTO, TIPO_CLIENTE = :TIPO_CLIENTE, DOLAR = OLAR');

  
 sql.SQL.Add(query);
  sql.Prepare;
  sql.ParamByName('cedula').Text := cliente.getCedula;
  sql.ParamByName('NOMBRE').AsString   := cliente.getNombre;
  sql.ParamByName('DIRECCION1').AsString    := cliente.getDireccion1;
  sql.ParamByName('DIRECCION2').AsString    := cliente.getDireccion2;
  sql.ParamByName('TELEFONOP').AsString   := cliente.getTelefonop;
  sql.ParamByName('FAX').AsString    := cliente.getFax;
  sql.ParamByName('APARTADO').AsString := cliente.getApartado ;
  sql.ParamByName('EMAIL').AsString   := cliente.getEmail;
  sql.ParamByName('LIMITE_CREDITO').AsFloat   := cliente.getLimite_Credito;
  sql.ParamByName('APLICA_LIMITE').AsBoolean   := cliente.getAplica_Limite;
  sql.ParamByName('SALDO_CUENTA').Asfloat   := cliente.getSaldo_Cuenta;
  sql.ParamByName('DIAS_CREDITO').AsInteger   := cliente.getDias_Credito;
  sql.ParamByName('DESCUENTO').AsFloat   := cliente.getDescuento;
  sql.ParamByName('FECHA_ULTIMA_COMPRA').AsDateTime   := cliente.getFecha_Ultima_Compra;
  sql.ParamByName('NUMERO_ULITMA_COMPRA').AsString   := cliente.getNumero_Ultima_Compra;
  sql.ParamByName('MONTO_ULTIMA_COMPRA').AsFloat   := cliente.getMonto_Ultima_Compra;
  sql.ParamByName('FECHA_INGRESO').AsDateTime   := cliente.getFecha_Ingreso;
  sql.ParamByName('ESTADO').AsBoolean   := cliente.getEstado;
  sql.ParamByName('EXENTO').AsBoolean   := cliente.getExento;
  sql.ParamByName('RESENA_EXENTO').AsString   := cliente.getResena_Exento;
  sql.ParamByName('TIPO_CLIENTE').AsInteger   := cliente.getTipo_Cliente;
  sql.ParamByName('DOLAR').AsBoolean   := cliente.getDolar;
  ejecutar_sin_active(sql);