[b]Como Fazer Query (Pesquisa)?[/b]

Pessoal.
Tenho que fazer uma pesquisa com os seguintes dados:

Dados de Uma tabela ´Consultas´
Dados da tabela ´Pacientes´
E Dados Da tabela ´Médicos´

Eu Fiz assim:

select Consultas.CONSULTANO, Consultas.PACIENTENO,Consultas.DATACADASTRO, Consultas.DATACONSULTA, Consultas.HORARIO, Consultas.CHEGADA, Consultas.ATENDIMENTO, Consultas.MEDICONO, Consultas.CONVENIONO, Consultas.ANAMMESES ,Consultas.Queixas,
Consultas.TipoConsulta,Consultas.OK,
Pacientes.Nome as Paciente
from CONSULTAS,Pacientes,medicos
where
( Consultas.PacienteNo = Pacientes.PacienteNo) and
(Consultas.MedicoNo) Like(:VarMedNo) and
( Consultas.OK) Like(:VarOK) and
(DataConsulta >= :VarDataI) and
(DataConsulta <= :VarDataF) and
Upper(Pacientes.Nome) Like Upper(:VarNome)
order by DataConsulta,Horario

E No Click

[b:44e137e167]procedure[/b:44e137e167] TConsultasMed.BtConsultarClick(Sender: TObject);
begin
Screen.Cursor:=crSQLWait;
BuscaSrc.DataSet:=nil;
With Busca do
Begin
Close;
ParamByName(´VarDataI´).AsDate:=Data1.Date;
ParamByName(´VarDataF´).AsDate:=Data2.Date;
ParamByName(´VarNome´).AsString:=Edit1.Text+´¬´;
ParamByName(´VarMedNo´).Asinteger:=MedicosQryMedicoNo.Value;
// Prepare;
// Open;
// End;
if RadioGroup1.ItemIndex = 0 then
begin
ParamByName(´VarOK´).AsString:=´¬´;
end;
if RadioGroup1.ItemIndex = 1 then
begin
ParamByName(´VarOK´).AsString:=´OK´;
end;
if RadioGroup1.ItemIndex = 2 then
begin
ParamByName(´VarOK´).AsString:=´NO´; end;
Prepare;
Open;
End;
BuscaSrc.DataSet:=Busca;
Screen.Cursor:=crDefault;
end;
só que ele mostra Todas as consultas sendo de um médico só
e são vários médicos