Erzeuge eine Komponente vom Typ TApplicationEvents (sieht aus wie eine Fackel) und schreibe in das Ereignis OnException den Code:
Delphi-Quellcode:
begin
//evtl. Showmessage('Folgender Fehler ist aufgetreten: '+e.message+#10#13+'Klasse: '+e.classname);
e:=nil;
end;
EDIT: Das gehört aber nicht zum guten Stil. Fehler sollten vermieden und im schlimmsten Fall mit try..except/finally...end; abgefangen werden, nicht grundsätzlich unter den Speicherteppich werden.
[edit=Christian Seehase]Delphi-Tags korrgiert. Mfg, Christian Seehase[/edit]