帮忙将下面代码转换为 delphi

    Private Declare Function InitIDCard Lib "IDCard.dll" (ByRef lpUserId As Byte, ByVal nType As Integer, ByVal lpDirectory As String) As Integer


'加载识别核心
    Private Sub BtnLoadKernal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLoadKernal.Click
        If m_bIsInitSuccess = True Then
            ResultTextBox.Text = "识别核心已成功加载"
            Exit Sub
        End If
        Dim nRet As Integer
        Dim strTmp As Byte()
        strTmp = System.Text.Encoding.Unicode.GetBytes(UserID.Text)
        '初始化识别核心

        nRet = InitIDCard(strTmp(0), 0, vbNullString)
        If nRet = 0 Then
            ResultTextBox.Text = "加载识别核心成功"
            m_bIsInitSuccess = True
        Else
            ResultTextBox.Text = "初始化识别核心失败" & Str(nRet)

            m_bIsInitSuccess = False
        End If
    End Sub --------------------编程问答-------------------- --------------------编程问答-------------------- 引用dll接口

function InitIDCard(var lpUserId :byte; nType :integer; lpDirectory :PChar):integer;

其他的不用说了吧， GetBytes可以用Move将string按字节放到数组中 --------------------编程问答-------------------- 下面的能否完整的给我 --------------------编程问答-------------------- strTmp = System.Text.Encoding.Unicode.GetBytes(UserID.Text)
>>这个是关键性一句,如何转为delphi

补充：.NET技术 ,  VB.NET