你汉化的目的是想系统提示信息是中文的吧?这些提示信息你都可以通过捕获
Application.OnException这个异常进行处理的。例如
procedure TMainForm.myExceptHandle(Sender : TObject; E : Exception);
begin
; if Pos('valid date',E.Message) > 0 then ; //捕获非法日期
; ; ;Application.messagebox(' ; ;输入了非法日期!',pchar(application.title),mb_iconstop+mb_ok)
; else
; ; application.showexception(e);
end;
在mainform.create事件中写
; Application.OnException := myExceptHandle;
即可。