Erro login

Opa, to com um problema aqui nesse codigo

procedure TfrmLogin.btnOkClick(Sender: TObject);begin QRLogin.Open; if not QRLogin.Locate('nome',edtLogin.text,[]) then begin messagedlg('Usuario não encontrado',MTinformation,[MBOK],0); raise EAbort.Create('Erro de usuario'); end else if not QRLogin.locate('senha',edtSenha.text,[]) then begin messagedlg('Usuario e senha não conferem',MTinformation,[MBOK],0); raise EAbort.Create('Erro de senha'); 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; QRLogin.close;end;

q q ta aconteceno q ele entra no 1 if e mesmo assim ele nao executa a exceção q m***** eessa eu tenho esse codigo ufncionano perfeitamente em outro projeto igualzinho