Programmabsturz verursachen

[Der schöne Günther]

Ich hätte noch einen wo die Meldung von Windows schon kommt obwohl die Anwendung zu dem Zeitpunkt noch normal weiterläuft.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   thread: TThread;
begin
   thread := TThread.CreateAnonymousThread(nil);
   thread.OnTerminate := handleThreadTerminate;
   thread.Start();
end;

procedure TForm1.handleThreadTerminate(Sender: TObject);
begin
   raise EProgrammerNotFound.Create('derp');
end;