我不能直接给出答案,但给出另一个可行的替代方案:
将操作放在一个try-except块内,在except中判断错误类型,使用MessageDlg('显示错误信息', mtInfomation, [mbOK], 0);给出错误信息。至于标题中显示的是Infomation,你可以使用菜单project|Languages|Add...加入简体中文,然后对该应用程序中使用的英文进行翻译即可