Benutzerlogin if-Anweisung mit ODER ?

[kalmi01]

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
          else 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;

So vielleicht ?

EDIT: wieso war kein roter Kasten?
@Apollonius: meine Frage galt nicht Dir, es kam nur kein roter Kasten, oder wir waren zeitgleich.