DELPHI调用VB写的COM接口动态库问题

一个DLL文件注册后，VB用以下语句就能调用了(别人给的VB调用例子)：Private WithEvents x As IBAptmntPrivate Sub Command1_Click()On Error GoTo 1
x.CleariButton
txtCardSnr.Text = x.ActiveiBSnr
MsgBox "Clear successfully"
Exit Sub
1:
    MsgBox Err.Description
End Sub
请问，在DELPHI下怎么调用该动态库？？