欢迎大家能给个解答！谢谢各位！(50分)

以下是VB中的程序：
Private Sub 身份认证_验证动态口令_Btn_Click()
On Error Resume Next
Dim ResponseID As String '响应码
Dim Identifier As String 'CTL标识
ResponseID = Text2.Text
Identifier = TextIdentifier.Text
'===================================================================================
ObjLogonAuth_S.Identifier = Identifier '指定CTL标识
'验证动态口令登录,证书和信任列表
ObjLogonAuth_S.Auth _
ResponseID, 3
If Err.Number <> 0 then
MsgBox "动态口令验证失败！Error = " &
Hex(Err), vbCritical, "失败"
Exit Sub
else
MsgBox "动态口令验证成功！", vbInformation, "成功"
End If
'===================================================================================
SpecInfoText.Text = ObjLogonAuth_S.SpecInfo
End Sub
现在我的问题是：如何在DElphi中取得错误码？
VB中的一段程序为：If Err.Number <> 0 then
MsgBox "动态口令验证失败！Error = " &
Hex(Err), vbCritical, "失败"

昨天在CSDN上一天也没解决的问题，希望在大富翁有人帮助。
谢谢！！！

谁能告诉我？
肯定有人会的，可是为什么没人回答呢？
拜托各位给点帮助！！！谢谢！！！！

delphi中可以这样：
try
{code}
except
on e:exception do
showmessage(e.message);
end;

To YoungSun:
我这样试过，仍然不行。
现在我调用了一个VB编写的动态库，如何在DELPHI中返回动态库的错误代码？

难道真的没人会吗？
期待高人的出现...................................

老兄VB的动态库只能在VB里用，是ActiveDLL不是标准的DLL.

那如果要调用，我该怎么做？
希望bigroute能给我解答。

希望bigroute能说的详细点。
如果我要调用的话，该怎么做？
谢谢！！！

多人接受答案了。