怎样调用这样dll?

bcb的dll
1、初始卡：用来对门锁进行初始化设置。
int     (*InitCard)(int ComNumber,String SystemCode,String HotelCode,String HotelPassword,String CardPassword,String Bmm,String Fmm,String Rmm ); 
注：CardPassword 可随意填装载动态库：
       HINSTANCE gLibSample;                           // 动态库句柄
    gLibSample=NULL;
    InitCard=(int(*)(int ComNumber,String SystemCode,String HotelCode,String HotelPassword,String CardPassword,String Bmm,String Fmm,String Rmm ))NULL;
我在delphi声明如下:
Function InitCard(ComNumber:longint;SystemCode,HotelCode,HotelPassword,CardPassword,Bmm,Fmm,Rmm:String) :smallint;stdcall;far;external 'HUNERF5.dll' name 'InitCard';
或者:
Function InitCard(ComNumber:longint;SystemCode,HotelCode,HotelPassword,CardPassword,Bmm,Fmm,Rmm:String) :smallint;stdcall;external 'HUNERF5.dll';运行按纽时提示：提示什么:cct3260mt.dll什么的
代码如下：
var s:integer;
s:=initcard(0,'01','01','01','01','01','01','01');
我样声明和调用正确吗？应该怎么做啊？