Fechas en SQL Server

[trex2000]

Saludos:
Estoy haciendo una aplicacion que lee datos de SQL Server y hago la conexion por medio de ADO pero al momento de que estoy generando un Query cuando pongo los parametros de la Fecha me manda el sig error:
"La operacion de multiples pasos de OLEDB genero errores.Compruebe los valores de estado de OLE DB si es posible.No se realizo ningun trabajo".

El codigo que estoy usando es el sig:

modulo.ADOQuery1.Close;
modulo.ADOQuery1.SQL.Clear;
modulo.ADOQuery1.SQL.Add('Select a.cardholderid,a.cardnumber,a.deleted,');
modulo.ADOQuery1.SQL.Add('b.recordid,b.firstname,b.lastname,b.deleted,b.note4,');
modulo.ADOQuery1.SQL.Add('c.param3,c.param2,c.param1,c.link1,c.recvtime,c.gentime,c.link2,c.link3,c. deleted');
modulo.ADOQuery1.SQL.Add('From card a,cardholder b,history c');
modulo.ADOQuery1.SQL.Add('Where (a.cardholderid = b.recordid)And (b.recordid=c.link3)And(a.Deleted = 0)');
modulo.ADOQuery1.SQL.Add('And (a.cardnumber Between :EmpIni And :EmpFin)And((c.link1 = :Puerta1)Or(c.link1 = :Puerta2))');
Modulo.ADOQuery1.SQL.Add('And (b.note4 <> epto)');
Modulo.ADOQuery1.SQL.Add('Order By a.Cardnumber');
Modulo.ADOQuery1.Parameters.Clear;
Modulo.ADOQuery1.Parameters.CreateParameter('EmpIni',ftInteger,pdInput,10,null);
Modulo.ADOQuery1.Parameters.CreateParameter('EmpFin',ftInteger,pdInput,10,null);
Modulo.ADOQuery1.Parameters.CreateParameter('Puerta1',ftInteger,pdInput,10,null);
Modulo.ADOQuery1.Parameters.CreateParameter('Puerta2',ftInteger,pdInput,10,null);
Modulo.ADOQuery1.Parameters.CreateParameter('FechaIni',ftDate,pdInput,25,null);
Modulo.ADOQuery1.Parameters.CreateParameter('FechaFin',ftDateTime,pdInput,25,null);
Modulo.ADOQuery1.Parameters.CreateParameter('Depto',ftString,pdInput,25,null);
Modulo.ADOQuery1.Parameters.ParamByName('EmpIni').Value:=Edit_EmpIni.Text;
Modulo.ADOQuery1.Parameters.ParamByName('EmpFin').Value:=Edit_EmpFin.Text;
Modulo.ADOQuery1.Parameters.ParamByName('Puerta1').Value:=Edit_PE.Text;
Modulo.ADOQuery1.Parameters.ParamByName('Puerta2').Value:=Edit_PS.Text;
Modulo.ADOQuery1.Parameters.ParamByName('FechaIni').Value:=DTPFI.Date;
Modulo.ADOQuery1.Parameters.ParamByName('FechaFin').Value:=DTPFF.Date;
Modulo.ADOQuery1.Parameters.ParamByName('Depto').Value:='Mantenimiento';
modulo.ADOQuery1.Open;

Me podrian decir que se debe este error y como corregirlo.

De antemano muchas gracias.