Exceptions schachteln

[Hansa]

Mein Programm weiß ja gar nichts von dem Passwort ! Das ist in der Datenbank abgespeichert. Ist auch gut so für Disassemblierer oder sonstige dunkle Gestalten. Ich muß also so oder so eine Exception abfangen. Habe es jetzt so ähnlich wie Minz gemacht:

Delphi-Quellcode:

  with pFIBBackupService1 do begin
    try
      ServerName := ServerE.Text;
      LoginPrompt := False;
      Params.Add('user_name='+UserE.Text);
      Params.Add('password='+PasswordE.Text);
      Active := True;
      weiter := true
    except
      raise exception.create('KEINE ZUGRIFFSRECHTE');
    end;

Ja und die Schleife ist auch weg. 8)