"String or binary data would be truncated"

[Gaim2205]

Hola amigos del foro, estoy desarrollando en delphi 7. Mediante mi aplicación quiero insertar registros a una b.d. SQL Server 2000.

El código del insert dentro de mi ADOQuery es el siguiente:

Código SQL [-]
insert into incidencias_kp_1(compania, trabajador, incidencia_kp, 
fecha_incidencia,secuencia, referencia_01, referencia_02, referencia_03,
tra_compania, referencia_04, variable_01, variable_02, variable_03, 
variable_04, sit_incidencia) 
VALUES ('AIMC', '0000100001', 1001, :fecha, 1, :hrentrada, :hrsalida, :dia, 'PITK', :no_dia, 1, 0,
0, 0, 1)

Pero al tratar de ejecutar la sentencia obtengo el error "String or binary data would be truncated"... sé a lo que se refiere, y he verificado que ningun campo se pase de la longitud aceptada, creo que he identificado el campo. El problema está al tratar de insertar la fecha que en SQL Server esta definida como smalldatetime, not null.
Mi variable que quiero insertar ahi esta declarada en delphi como TDateTime. Pero aun asi tengo ese error. Alguna sugerencia para solucionarlo? Gracias...