Error de tipos en base de datos Delphi

[elgorda]

Hola, yo tengo la siguiente consulta:

Código SQL [-]
SELECT NroHabitacion

FROM Habitaciones H

WHERE ( ( :tipohabitacion  = H.idTipo ) or (:tipohabitacion is null)     )  and  

(H.idHabitacion not in 
(SELECT R.idHabitacion
FROM Reservas R
WHERE  :fechamax >= R.FechaIngreso
and :fechamin <= R.FechaSalida ))

La cual es llamada desde:
Donde el keyvalue es leido de una tabla y es un integer:

Código Delphi [-]
unit2.DataModule3.ConsultaHabitaciones.close;
unit2.DataModule3.ConsultaHabitaciones.Parameters.ParamByName('tipohabitacion').Value:=dblookupcombo  box2.KeyValue.asstring;
unit2.DataModule3.ConsultaHabitaciones.Parameters.ParamByName('fechamin').Value:=formatdatetime('dd/mm/yyyy',datetimepicker1.date);
unit2.DataModule3.ConsultaHabitaciones.Parameters.ParamByName('fechamax').Value:=formatdatetime('dd/mm/yyyy',datetimepicker2.date);
unit2.DataModule3.ConsultaHabitaciones.open;

El error que tira es " No coinciden los tipos de datos en la expresion de criteros"

[Casimiro Notevi]

Ahí tienes un error, ni siquiera te compilará

unit2.DataModule3.ConsultaHabitaciones.Parameters.ParamByName('tipohabitacion').Value:=dblookupcombo box2.KeyValue.asstring;