Query em tempo de execução

Olá a todos.Criei um procedimento para verificar se um usuário está cadastrado no banco de dados.Utilizo Firebird como BD e componentes Zeos para acessar o banco.Resolvi criar uma query em tempo de execução para fazer a verificação. Não dá nenhum erro, porém, quando digito o nome do usuário no Edit e clicono botão que executa o procedimento, ele dá ''usuário inexistente'', mesmo se o nome do usuário estiver cadastrado no banco.

Segue o código:

procedure Tfrm_login.SpeedButton1Click(Sender: TObject);
var Qry : TZQuery;

  Qry:=TZQuery.Create(nil);
  Qry.Connection := dm_dados.ZConnection1;  //componente de conexão
  Qry.SQL.Add('select codigo, nome, acessar, user, pass from clientes');
  Qry.Open;
  if Qry.Locate('USER',Edit1.Text,[]) then
  begin
    ShowMessage('usuário cadastrado');
  end
  else
  begin
    ShowMessage('usuário inexistente');
    Edit1.SetFocus;
  end;
  FreeAndNil(Qry);
end;

	 

	Se alguém puder ajudar agradeço desde já.

	Obrigado