No me agrega las lineas de SQL a mi adoquery

[chetos7]

Que onda, lo que pasa es que trato de hacer una consulta anidada, pero pareciera que mi adoquery se queda vacio. El codigo es el siguiente

Código Delphi [-]
 disp:='Disponible';
  fec:=DATETOSTR(DATETIMEPICKER1.Date);
  hr:=ComboBox5.Text;

Código SQL [-]
Datamodule4.ADOQuery3.SQL.Clear;
  Datamodule4.ADOQuery3.SQL.Add('select Equipo.Folio,Nom_equipo,Marca ');
  Datamodule4.ADOQuery3.SQL.Add(' from Equipo');
  Datamodule4.ADOQuery3.SQL.Add(' where Equipo.Estado=:disp and Equipo.Folio not in ');
  Datamodule4.ADOQuery3.SQL.Add(' (SELECT Apartado.Folio FROM Apartado WHERE Fecha_Prest=:fec AND Hr_Prest=:hr)');
  DAtamodule4.ADOQuery3.Parameters.ParamByName('disp').Value:=disp;
  Datamodule4.ADOQuery3.Parameters.ParamByName('fec').Value:=fec;
  Datamodule4.ADOQuery3.Parameters.ParamByName('hr').Value:=hr;

Código Delphi [-]
 Datamodule4.ADOQuery3.Open;
  if  Datamodule4.ADOQuery3.Eof then
     Showmessage('vacio');
  Datamodule4.DataSource3.DataSet:=Datamodule4.ADOQuery3;
  DBGrid1.DataSource:=Datamodule4.DataSource3;

El mensaje de vacio lo pongo para ver si me asigna las instrucciones a mi adoquery y siempre me manda el mensaje de vacio, osea que no tiene nada. Alg uien me puede decir donde esta el error. Porque no me manda nada a mi dbgrid, y si nada mas hago las primeras dos lineas de laconsulta,si sale y si me manda los datos al dbgrid, gracias de antemano