VB的类型转成DELPHI类型

以下是最近做一个小软件中VB DEMO中的VB函数,不知道翻成delphi是什么样的,最好是请教一下高手VB和delphi中的各类型定义的转换
Public Declare Function IcMan_GetMemberInfo Lib "IcRead.dll" (ByRef CardNo As Byte, _
     ByRef MemberNo As Byte, ByRef MemberName As Byte, ByRef MemberType As Byte, ByRef Discount As Long, ByRef lMoney As Long) As BooleanPublic Function GetMemberInfoForCard(CardCode As String, MemberNo As String, MemberName As String, MemberType As String, _
        Discount As Long, lMoney As Long) As Boolean
    Dim BufCardNo(250) As Byte
    Dim BufMemberNo(250) As Byte
    Dim bufMemberName(250) As Byte
    Dim BufMemberType(250) As Byte
    Dim lngDis As Long
    Dim lngMoney As Long
    Dim StrRet As String
    Dim I As Boolean
    
    If IcMan_GetMemberInfo(BufCardNo(0), BufMemberNo(0), bufMemberName(0), BufMemberType(0), lngDis, lngMoney) Then
        StrRet = StrConv(BufCardNo, vbUnicode)
        StrRet = Trim(Replace(StrRet, Chr(0), ""))
        CardCode = StrRet
        
        StrRet = StrConv(BufMemberNo, vbUnicode)
        StrRet = Trim(Replace(StrRet, Chr(0), ""))
        MemberNo = StrRet
        
        StrRet = StrConv(bufMemberName, vbUnicode)
        StrRet = Trim(Replace(StrRet, Chr(0), ""))
        MemberName = StrRet
        
        StrRet = StrConv(BufMemberType, vbUnicode)
        StrRet = Trim(Replace(StrRet, Chr(0), ""))
        MemberType = StrRet
        
        Discount = lngDis
        lMoney = lngMoney
        
        GetMemberInfoForCard = True
    Else
        GetMemberInfoForCard = False
    End If
End Function