如何屏蔽数据库底层出差代码？

在连接数据库失败后，重新连接：
procedure TDataModule9.ADOConnection1ConnectComplete( 
  Connection: TADOConnection; const Error: Error; 
  var EventStatus: TEventStatus); begin  。。
 ipaddr:=InputBox('手动输入IP地址','没有找到数据库服务器，请确定其IP地址：','192.168.1.1'); 
 if EventStatus=esErrorsOccured then //如果连接发生问题（一般是IP地址不正确或服务器没启动） 
  begin 
    Reg:=TRegistry.Create; 
    Reg.RootKey:=LongWord($80000002); 
    Reg.OpenKey('Software\ODBC\ODBC.INI\Czjdoc',true); 
    Reg.WriteString('CommLinks','TCPIP{host='+ipaddr+'}');//重写连接参数 
     Reg.CloseKey; 
    Reg.Free; 
    ADOConnection1.Open(); 
    if Not ADOConnection1.Connected then application.Terminate; 
  end; 
end; 
连接失败后除出现输入提示框外还会出现ODBC数据库驱动程序出错信息（全部是英文，意思是数据库服务器没有启动），为避免惊吓用户，想屏蔽掉这些数据库英文出差代码，在主窗体上添加一个ApplicationEvents1组件，想在TForm1.ApplicationEvents1Exception(Sender: TObject;
  E: Exception)中捕获此错误并将其翻译成中文，但却不知怎样做，请大师提示。
这好意思，三年前曾经混成星了，近三年一直没编程，好多东西都很生疏了。