[firebase-br] Dúvidas com Procedure

[CPD - Civiam]

Untitled DocumentAmigos em meu form de login a procedure abaixo funciona no Interbase, porém queria migrar para o Firebird 2 e a  mesma procedure não enxerga os registros cadastrados no banco. Alguma dica?
Segue procedure:
procedure TLogin.BitBtn1Click(Sender: TObject);
var
strSqlLog: string;
mensagem: string;
  begin
        strSqlLog:='SELECT * FROM usuario, perfil WHERE usuario.nivel=perfil.id ';
        strSqlLog:=strSqlLog + 'AND fantasia = ' + #39 + (valorNome.Text) + #39 ;
        strSqlLog:=strSqlLog + 'AND senha = ' + #39 + (valorSenha.Text) + #39 ;
        menuPrin.QueryLogin.Close;
        menuPrin.QueryLogin.SQL.Clear;
        menuPrin.QueryLogin.SQL.Add(strSqlLog);
        menuPrin.QueryLogin.Open;
        if(menuPrin.QueryLogin.FieldByName('status').AsString='N') then
            begin
                mensagem:='Você está cadastrado no sistema mas não ' + #13
                + 'possui autorização para usá-lo neste momento. ' + #13 + #13
                + 'Consulte o Suporte Técnico.';
                Application.MessageBox(PChar(mensagem), 'Login não autorizado', MB_Ok+mb_IconError);
                menuPrin.Close;
            end
        else
        begin
            if(menuPrin.QueryLogin.RecordCount)=1 then
                begin
                    menuPrin.StatusBar1.Panels[2].Text:=' '+'Usuário: '+ login.ValorNome.Text +
                    ' - ' + menuPrin.QueryLogin.FieldByName('dpto').AsString;
                    menuPrin.Logoff.Caption:='Logoff de: '+ menuPrin.QueryLogin.FieldByName('fantasia').AsString;
                    menuPrin.Logoff.Hint:='Logoff de: '+ menuPrin.QueryLogin.FieldByName('fantasia').AsString;
                    login.Close;
                end;
            if(menuPrin.QueryLogin.RecordCount)=0 then
                begin
                    mensagem:='Nome ou senha do usuário inválidos.' + #13 + #13
                    + 'Se você esqueceu sua senha, consulte ' + #13
                    + 'o Suporte Técnico.';
                    Application.MessageBox(PChar(mensagem), 'Login não autorizado', MB_Ok+mb_IconError);
                    ValorSenha.Text:='';
                    ValorSenha.SetFocus;
                end;
        end;
  end;