Verarbeiten von DB-Berechtigungen

[Ati]

So ich habe mir jetzt mal eine Testprozedure gebastelt. Hier mal das erste Ergebnis meiner geistigen Ergüsse:

Delphi-Quellcode:

procedure TfrmLogin.btnloginClick(Sender: TObject);
var rolle:String;
begin
  {frmMain.Visible:= true;
  close;
  frmLogin := nil;}
  qrlog.SQL.Text:='SELECT RDB$RELATION_NAME,RDB$PRIVILEGE from RDB$USER_PRIVILEGES where (rdb$user_privileges.RDB$USER = '''+eduser.Text+''') and (rdb$user_privileges.rdb$object_type=13)' ;
  qrlog.open;
  label3.Caption:=qrlog.FieldByName('RDB$RELATION_NAME').AsString;
  rolle:=qrlog.FieldByName('RDB$RELATION_NAME').AsString;
  label4.Caption:=qrlog.FieldByName('rdb$privilege').AsString;
  qrlog.Close;
  qrlog.SQL.Clear;
  qrlog.SQL.Text:='SELECT RDB$PRIVILEGE from RDB$USER_PRIVILEGES where (rdb$user_privileges.RDB$USER='''+rolle+''')' ;
  qrlog.Open;
  label5.Caption:=qrlog.FieldByName('rdb$privilege').AsString;

end;

Jetzt zeigt mir die Abfrage ja nur die erste Berechtigung an. Wie kann ich alle sichtbar machen?