Erro login

[noseDeep 0]

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

[Marostegan 0]

xi cara...testei aqui e foi...