截獲程序的異常錯誤

除了用try...except...end; 外還可以用ApplicationEvents控件，該控件在additional頁裡，用於捕獲異常信息，在其OnException事件裡寫上處理代碼就可以防止你的程序在運行期出現大錯誤了。
簡單實例：

procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
begin
  RecordException(sender,E);//異常處理代碼
end;

procedure TForm1.RecordException(sender:tobject;E: Exception);
begin
  if (E.Message='由於將在索引、 主關鍵字、或關係中創建重複的值，請求對表的改變沒有成功。 改變該字段中的或包含重複數據的字段中的數據，刪除索引或重新定義索引以允許重複的值並再試一次。')then
  begin
    Application.MessageBox('記錄重複,請檢查輸入的數據後再進行操作','提示',MB_OK+MB_ICONINFORMATION);
    Exit;
  end;
end;