怎么在程序运行的时候出现和DELPHI下一样的调试信息？？？

这个是远程连接SQL，只需要输入IP和SQL用户和密码就可以连接，但不管是IP错误还是用户或者密码错误程序的SHOWMESSAGE都只是一样的信息“Access   wiolation   at   address   0048996E   in   module......   ”          
           
  代码：  
          try  
              ADOConnection1.Connected   :=   True;  
          except  
                  showmessage(E.Message);  
          end;  
  怎么才能SHOWMESSAGE我需要的信息，因为在DELPHI下IP错误和用户或者密码错返回的提示是不一样的，我需要根据信息来分别处理！

showmessage(E.Message)当然是显示系统异常信息.   你自定义你自己的异常信息.  
   
  如   EIPException   =   Exception  
        EPassException   =   Exception  
   
  try  
      ....  
  except  
    E1:   on   EIPException   Showmessage('IP错误')  
    E2:   On   EPassException   Showmessage('密码错误错误')  
 

try  
      ....  
  except  
      on   E1:   EIPException   DO   Showmessage('IP错误')  
      On   E2:   EPassException   DO   Showmessage('密码错误错误')  
  END;