C++ zu Delphi funktion umschreiben

[XXcD]

An dieser Stelle:

str := mem[8] or (mem[9] shl 8);