[Resolvido] mensagem apos pesquisa ibquery

Estou usando delphi 7, firebird 2.0 componentes da paleta interbase.

Tenho uma pesquisa implementada com componente ibquery porem quando realizo a pesquisa e ela nao encontra nada, isto e, nenhum registro gostaria que mostrasse uma mensagem do tipo:

'A pesquisa nao encontrou registros.'

Criei o codigo abaixo:

procedure TFormPesquisaCadastro.BTNpesquisacadastroClick(Sender: TObject);
BEGIN
begin
if editPesquisaCadastro.Text = '' then
begin

 messagebeep(16);
 messagebox(FormPesquisaCadastro.Handle,'Digite no campo!'#13'O campo deve ser preenchido.','AgenTel - Pesquisar Cadastro',mb_Ok+MB_ICONQUESTION);
 editPesquisaCadastro.SetFocus;
 end
 else
 if RadioGroupPesquisaCadastro.ItemIndex = 0 then
 begin
 if (DTM.IBQRYpesqNomeCompleto.RecordCount >=1) then
 begin //pesquisa por nome completo
 DTM.IBQRYpesqNomeCompleto.Close;
 DTM.IBQRYpesqNomeCompleto.ParamByName('PRMnomecompleto').AsString:=''+ EditPesquisaCadastro.Text +'%';
 DTM.IBQRYpesqNomeCompleto.Open;
 editPesquisaCadastro.Clear;
 end
 else
 messagebeep(16);
 messagebox(FormPesquisaCadastro.Handle,'A pesquisa nao'#13'encontrou resultados.','AgenTel - Pesquisar Cadastro',mb_Ok+MB_ICONQUESTION);
 end;
 end;
END;

Porem este codigo acima mostra a mensagem que nao foi encontrado registros e tambem nao mostra os resultados da pesquisa toda vez que aperto no botao de pesquisa, independentemente da letra digitada.

Mas, se o codigo estiver assim:

Observacao: // sao comentarios.

procedure TFormPesquisaCadastro.BTNpesquisacadastroClick(Sender: TObject);
BEGIN
begin
if editPesquisaCadastro.Text = '' then
begin

 messagebeep(16);
 messagebox(FormPesquisaCadastro.Handle,'Digite no campo!'#13'O campo deve ser preenchido.','AgenTel - Pesquisar Cadastro',mb_Ok+MB_ICONQUESTION);
 editPesquisaCadastro.SetFocus;
 end
 else
 if RadioGroupPesquisaCadastro.ItemIndex = 0 then
 begin
 //if (DTM.IBQRYpesqNomeCompleto.RecordCount >=1) then
 //begin //pesquisa por nome completo
 DTM.IBQRYpesqNomeCompleto.Close;
 DTM.IBQRYpesqNomeCompleto.ParamByName('PRMnomecompleto').AsString:=''+ EditPesquisaCadastro.Text +'%';
 DTM.IBQRYpesqNomeCompleto.Open;
 editPesquisaCadastro.Clear;
 //end
 //else
 //messagebeep(16);
 //messagebox(FormPesquisaCadastro.Handle,'A pesquisa nao'#13'encontrou resultados.','AgenTel - Pesquisar Cadastro',mb_Ok+MB_ICONQUESTION);
 end;
 end;
END;

Este codigo acima realiza a pesquisa mostra os registros corretamente porem quando nao acha registros o dbgrid fica vazio. O que eu estou fazendo de errado no primeiro codigo?

Aguardo resposta. Obrigado.