C++代码翻译成delphi代码

C++代码如下：
int Query_Pos_Card12（HANDLE icdev，LPINT CardType, LPINT Opt_Num, LPINT Serno，LPSTR Cardno，
unsgind long * CardSerno， LPINT Value，LPINT Count，LPINT UserType，,LPINT Consum_Add, LPINT use_term ,
int WaitTime）

并且给出在delphi中如何调用，我的调用过程如下：
procedure TForm1.Button2Click(Sender: TObject);
var
MlngCardID:PInteger;              //卡流水号
MstrPressWorkID:string;          //用户对外编号
MlngCardTypeID:PInteger;          //卡类型（0 - 用户卡，1 - 操作员卡，2 - 系统卡，4 - 空白卡）
MlngValue1:PInteger;              //卡剩余金额：实际金额*100
MlngCount1:PInteger;                  //卡消费次数
MLngConsumAdd:PInteger;              //上次消费的消费机地址
MLngUseTerm:PInteger;                //单位为月， <255。暂时未开放次功能，此参数必需为0。
MlngSaleOperatorID:PInteger;          //上次消费时使用的设备的管理员卡编号
MlngAddCount:PInteger;                //当天的累计消费次数
MlngCardUsageType:PInteger;          //用户卡类型（1－8）
strTerm:string;  //有效期字符串
i