Fórum Query em tempo de execução no Delphi #612902

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 clico
no 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;
begin
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;

Desde já agradeço a quem puder ajudar.