problema com login

tenho o seguinte codigo pra checar logins.....

if not QRLogin.Locate('NOME',edtLogin.text,[]) then begin messagedlg('Usuario não encontrado',MTinformation,[MBOK],0); end else if not (QRLogin.FieldByName('SENHA').asString = edtlogin.text) then begin messagedlg('Usuario e senha não conferem',MTinformation,[MBOK],0); end else begin pUsuario := QRLogin.FieldByName('NOME').AsString; frmLogin.caption := 'Usuario Aceito'; sleep(100); logsis('INICIO DE ATIVIDADE. USUÁRIO: '+pUsuario); frmPrincipal.StatusBar1.Panels[1].Text := 'Usuario: '+pUsuario; pNivel := QRLogin.FieldByName('NIVEL').AsInteger; close; end;

entao ta com u mrpoblema ele nao axa o usuario de forma alguma, creio eu q o locate nao está funcionando mas por q? eu heim