// Hiermit werden globale Exceptions abgefangen.

// Getestet mit D4 unter Win98

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
{ Private-Deklarationen}
  public
    procedure abfang(sender: TObject; Ex: exception);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  application.onexception := abfang;
end;

procedure Tform1.abfang(sender: TObject; Ex: exception);
begin
// hier irgendwas z.B.
  showmessage('Es ist etwas passiert');
end;