Consulta Query X Table

Boa noite meus colegas,

Vejam só.
Numa query para pesquisar por registros que apresentem uma determinada informação com uma determinada data eu estou usando a seguinte instrução:

*************************************************************
procedure TLocConsultas_.OkClick(Sender: TObject);
Var
Inicio: String;
begin
Inicio := DateToStr(DataI.Date);

dm_.QryConsultas.Close;
dm_.QryConsultas.SQL.Clear;
dm_.QryConsultas.SQL.Text := (´Select * from Consultas WHERE CL_NOME = :iPaciente and (CL_DATA = :pInicial) ORDER BY CL_DATA´);
dm_.QryConsultas.ParamByName(´iPaciente´).AsString := LocPac .Text;
dm_.QryConsultas.ParamByName(´pInicial´).AsDateTime := StrToDate(Inicio);
dm_.QryConsultas.Prepare;
dm_.QryConsultas.Open;

Rel_FichaConsulta_ := TRel_FichaConsulta_.Create(Application);
Rel_FichaConsulta_.QrpFichaConsulta.Preview;
end;


==> Onde, Início é uma caixa onde digito a data a ser pesquisada e LocPac é o Edit onde digito o nome do Paciente que estou procurando. Obs, tem que ser as duas informações dentro do mesmo registro.
*************************************************************
Mas demora muito para localizar...

Sei que se eu fizer com uma Table, o resultado é mais rápido.
Como ficaria a instrução acima, aplicada a uma Table?

Sei que posso contar com vcs sempre.


Beijinhos...