Erro na query

Já experimentou usar ´Try...Except...End´ ? Assim:
try
if qrysenha.RecordCount > 0 then
begin
frmagenda.Show;
frmagenda.SetFocus;
end;
except
MessageBox(´Login ou senha inválidos!´,´Erro´,mb_Ok+mb_IconError);
edtlogin.Clear;
edtsenha.Clear;
edtlogin.SetFocus;
end;


Ou, ainda:

if qrysenha.RecordCount = 0 then
begin
messagebox(´Login ou senha inválidos!´,´Erro´,mb_Ok+mb_IconError);
edtlogin.Clear;
edtsenha.Clear;
edtlogin.SetFocus;
end
else
if qrysenha.RecordCount > 0 then
begin
frmagenda.Show;
end;

o código que vc digitou não pode executar as duas condições, se está acontecendo isso é pq a máquina tá ficando maluca, e nesse caso é melhor reiniciar (qdo vc está depurando no delphi isto realmente pode acontecer).

só que o seu problema não ficou muito claro para mim.

tente explicar o que a rotina faz desde o começo passo a passo.
quem sabe posso lhe ajudar

até