Consulta con hora en access

[[ElDioni]]

Os paso el trozo de código de la discordia y la tabla a la que le hago la consulta.

Código Delphi [-]
adoquery4.Close; 
adoquery4.SQL.Text:='SELECT * FROM log WHERE destinatario=' + quotedstr('Dioni') + ' AND leido=false AND (fechaprog <=#' + datetostr(date) + '# AND horaprog<=#' + timetostr(time) + '#)'; 
adoquery4.ExecSQL; 
adoquery4.Open; 
if adoquery4.IsEmpty then   
  begin     
    showmessage('Vacio');   
  end 
else   
  begin     
    showmessage(adoquery4.FieldByName('mensaje').AsString);   
end;

Un saludo