Entweder so (über Application.OnException):
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnException:=Excepte;
end;
procedure Tform1.Excepte(Sender:TObject;e:
Exception);
begin
showmessage('
You did it again');
end;
Oder du nimmst dir TapplicationEvents (Palette "Zusätzlich") und findest dort dein Ereignis.