Fórum Preciso de ajuda com relacionamento #152818

Tenho um relatório de aniversariantes em minha aplicação, para esse são inseridos os dados do cadastro de clientes onde o mês da data de nascimento corresponde com o mês atual. Os telefones presente no formulário de cadastro de clientes estão em uma outra tabela chamada ´Contatos´. Na minha tabela de Contatos tem um campo chamado CodCliente que recebe o código do cliente... Preciso fazer com que os telefones de cada cliente apareçam também no relatório. Estou fazendo da seguinte forma:

QYfone.SQL.Clear;
a:=´Select * From Contatos ´;
b:=´Where CodCliente =:Consulta ´;
QYfone.SQL.Add(a+b);
QYfone.ParamByName(´Consulta´).AsInteger := QryAniverCodigo.Value;
QYfone.Close;
QYfone.Open;

Ao executar o código, no relatório, onde deveria estar o telefone do cliente aparace vazio. Como faço esse relacionamento?