Exceptions schachteln

[Hansa]

Zu früh gefreut. 8) Das stimmt, es könnte ja gar keine Datei vorhanden sein ! Das wollte ich jetzt so lösen:

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;
    except
      raise exception.create('KEINE ZUGRIFFSRECHTE !!!');
    end;
    if FileExists (DBNameE.Text) then begin
      Verbose := True;
      Options := [NonTransportable, IgnoreLimbo];
      DatabaseName := DBNameE.Text;
  showmessage (DBNameE.Text);
      BackupFile.Clear;
      BackupFile.Add(BackupE.Text);
      ServiceStart;
      Active := False;
      ShowMessage ('Datensicherung beendet !');
    end
    else begin
      showmessage ('KEINE DATEN ZUM SICHERN !!!');
      active := true;
    end;

Die Fehlermeldung kommt schon richtig. Aber wenn ich den Namen korrigiere lande ich bei "KEINE ZUGRIFFSRECHNUNG".