[mqm]

Tengo la siguiente función desarrollada en VB y necesito pasarla a Delphi:
-----------------------------------------------------
cadena:="43274893174817841747819273894718978277417AQW13748179"
strAux = ""
ReDim arrB(0 To (Len(cadena) / 2) - 1)
For i = 0 To (Len(cadena) / 2) - 1
strAux = Mid(cadena, i * 2 + 1, 2)
arrB(i) = CByte(Val("&H" + strAux))
Next
auxbiFIR = arrB
------------------------------------------------------
Que se supone que estan haciendo con ella, que tipo de conversión estan realizando y como podria implementarla en delphi?