连接MSSQL时,想在出错时看一下出错代码,怎么做?

Question

好象记得是E.什么来的....,不记得了
ADO连接MSSQL的代码如下:
try
  conn.ConnectionString := 'Provider=MSDASQL.1;Password='
   + Trim(Password) + ';Persist Security Info=True;User ID='
   + Trim(UserID) + ';Extended Properties="DRIVER=SQL Server;SERVER='
   + Trim(ServerName) + ';DATABASE=' + Trim(DataBaseName) + '"';
 conn.Connected:=true;
 result:=true;
except
//异常时,想显示错误代码到memo1上,怎么写
 end;

Answer 1

except on e : exception do//异常时,想显示错误代码到memo1上,怎么写
  memo1.lines.add(e.message);
end;