如何调用VB编写的动态连接库DLL数，如下所是？分不够继续给

Question

VB 声明如下：
Public Declare Function CheckData& Lib "chk100.dll" Alias "chk100" _
    (ByVal ProgressbarFunctionAddress As Long, ByRef MyDepth As Single, ByRef rtA1 As Single, ByRef rtA7 As Single, ByRef rtA8 As Single)
VB 调用如下：
CheckData AddressOf ProgressBar1, Depth1(1), rtA2(1), rtA7(1), rtA8(1)
其中：
  Progressbar1为一个函数 其它都是数组
请问Delphi中如何调用DLL中的函数，类型该怎么声明呢？

Answer 1

project=>import type library=>选择ADD，在弹出窗口中选择VB编写好的DLL，然后点击Create Unit
在要调用的窗口中调用接口：
test:_Base64;
｛
_Base64为刚创建Unit出来的Unit中的如：_Base64 = interface(IDispatch)；
CoBase64 = class；
｝
test:=CoBase64.Create;
下面就直接使用了。
对于其他程序的动态链接库使用方法可能会不同，可以参看其他帖子。
VB比较特殊。