Delphi 使用 TApplicationEvents 來處理 Exception

在 Form 上放入 TMemo 和 TApplicationEvents
在 Form Create 事件中加入

procedure TForm1.FormCreate(Sender: TObject);
begin
  raise Exception.Create('Test Exception'); // 丟出例外
end;

在 ApplicationEvents Exception 事件中加入

procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
  Memo1.Lines.Add(E.Message); // 將例外印在 Memo1 上
end;