[vtdeleon]

Saludos

No especificas en que linea te dá ese error, ademas de que desconozco ese error.

Código Delphi [-]

With modulo.ADOQuery1 do 
Begin
  Close;
  SQL.Clear;
  SQL.Add('Select a.cardholderid,a.cardnumber,a.deleted,');
  SQL.Add('b.recordid,b.firstname,b.lastname,b.deleted,b.note4,');
  SQL.Add('c.param3,c.param2,c.param1,c.link1,c.recvtime,c.gentime,c.link2,c.link3,c. deleted');
  SQL.Add('From card a,cardholder b,history c');
  SQL.Add('Where (a.cardholderid = b.recordid)And (b.recordid=c.link3)And(a.Deleted = 0)');
  SQL.Add('And (a.cardnumber Between :EmpIni And :EmpFin)And((c.link1 = :Puerta1)Or(c.link1 = :Puerta2))');
  SQL.Add('And (b.note4 <> :depto)');
  SQL.Add('Order By a.Cardnumber');
{
Como dije anteriormente, en ocasiones ahi que definir el tipo de datos a 
cada parametro, Por ejemplo
    Parameters.ParamByName('EmpIni').DataType:=ftString;
}
  Parameters.ParamByName('EmpIni').Value:=Edit_EmpIni.Text;
  Parameters.ParamByName('EmpFin').Value:=Edit_EmpFin.Text;
  Parameters.ParamByName('Puerta1').Value:=Edit_PE.Text;
  Parameters.ParamByName('Puerta2').Value:=Edit_PS.Text;
  Parameters.ParamByName('FechaIni').Value:=DTPFI.Date;
  Parameters.ParamByName('FechaFin').Value:=DTPFF.Date;
  Parameters.ParamByName('Depto').Value:='Mantenimiento';
  Open;
end;