程序自动捕获错误，并记录在一个指定文件中(80分)

各位朋友，请协助我，谢谢。
我们经常作数据库管理系统（SQL2000）
程序中偶尔出现单据保存失败的错误，试验状态又很难出现。
我希望在程序中设一程序，能自动捕获错误，并记在一个指定文件中，而程序能正常返回或通过，开发人员又可提取错误加以分析。

delphi有個控件 ApplicationEvents1,
在它的 OnException 事件中寫下就可:
procedure TFormLog.LogException(Sender: TObject;
E: Exception);
var
Filename: string;
LogFile: TextFile;
begin
// prepares log file
Filename := ChangeFileExt (Application.Exename, '.log');
AssignFile (LogFile, Filename);
if FileExists (FileName) then
Append (LogFile) // open existing file
else
Rewrite (LogFile);
// create a new one
try
// write to the file and show error
Writeln (LogFile, DateTimeToStr (Now) + ':' + E.Message);
if not CheckBoxSilent.Checked then
Application.ShowException (E);
finally
// close the file
CloseFile (LogFile);
end;
end;

我作的是一套大软件；希望错误捕获在整套系统中生效
您的 ApplicationEvents1---- OnException 放在哪好呢？ 工程头？
与程序中的其它 捕获如何协同工作？
try
//-------------
except
showmessage('数据非法');
//---该名生效后，您的ApplicationEvents1事件如何生效
end