VB Code zu Delphi - Probleme mit Bytearray

[mrhyde]

Hi Zusammen,

kann mir jemand folgendes in Delphi umcoden?
Unter VB läuft das Problemlos.
Hab schon alles mögliche unter Delphi probiert komm aber nicht richtig klar mit dem Bytearray in Delphi.

Delphi-Quellcode:

Public Sub crc()
    Dim mask, j, n, crc As Integer
    Dim bt(24) As Byte
    Dim crct As String
    
    z = 0
    crc = -1 ' crc mit $ffff initalisieren
    For n = 1 To Len(TextBox1.Text) Step 2
        j = Mid(TextBox1.Text, n, 2) 'je 2 Zeichen filtern
        z = z + 1 'Zaehler für Bytearray
        bt(z) = CByte("&H" & j)
        
        crc = crc Xor bt(z)
        For j = 1 To 8
            mask = 0
            If crc / 2 <> Int(crc / 2) Then mask = &HA001
            crc = Int(crc / 2) And &H7FFF: crc = crc Xor mask
        Next j
    Next n
    
    TextBox2.Text = crc ' crc anzeigen
End Sub

Wär echt cool wenn das jemand übernehmen könnte - damit ich mal ein Beispiel habe.