Benutzerlogin if-Anweisung mit ODER ?

[f4k3]

Huhu ihr Coder ,

Hab folgendes Problem:

Hab mir ne Benutzeranmeldung zusammen gebastelt, die auch herrlich funktioniert.
Die Benutzeranmeldung soll zwischen Admin und normalen Usern unterscheiden. Wenn der User ein Admin ist, soll er ins Admin Menü gelangen (AdminMenue), wenn der User ein normaler Benutzer ist, soll er ins Benutzer Menü kommen (BenutzerMenue).

Wenn ich mich jetzt als Admin anmelde, werde ich sowohl als admin angemeldet, aber auch als User.
Hättet ihr ne Idee wie ich den Code umbasteln könnte, dass wenn die Admin Bedingung zutrifft, dass die Benutzerbedingung gar nicht erst ausgeführt wird?

Delphi-Quellcode:

procedure TfLogin.iAnmeldenClick(Sender: TObject);
begin

        if TBenutzer.FieldByName('Benutzername').AsString = 'Admin' then


              if TBenutzer.FieldByName('Kennwort').AsString = eKennwort.Text then
              begin

                    ShowMessage('Anmeldung als Admin erfolgreich');
                    fLogin.Hide;
                    fAdminMenue.Show;


              end;


          if TBenutzer.FieldByName('Benutzername').AsString = dbeBenutzername.Text then
          begin

                if TBenutzer.FieldByName('Kennwort').AsString = eKennwort.Text then
                begin

                      ShowMessage('Anmeldung als Benutzer erfolgreich');
                      fLogin.Hide;
                      fBenutzerMenue.Show;
                end
        end

end;

Mit vielen Grüßen

f4k3