在DELPHI中如何获取的MS SQL SERVER7。0错误代(50分)

在用DELPHI联结数据库时如何获取SQLSERVER7。0的错误代码，如下例中
TRY
//连接数据库
DM=TDM.CREATE(SELF);
DM.MDB.CONNECTED:=FALSE;
DM.MDB.CONNECTED:=TRUE;
EXCEPT ON E:EDATABASEERROR DO
BEGIN
ERRNO:=HANDELEXCEPTION(E); //自定义的公用处理错误函数.
FUNCTION HANDELEXCEPTION（E：EXCEPTION）：INTEGER；

如何在这个自定义函数中根据EDATABASEERROR中的E.MESSAGE返回的错误信息来分析错误，
比如末连结上SQLSERVER数据库时的错误分析。并且那里有这种错误代码可下载！！！

看sql server自己带的表

接受答案了.