C++ zu Delphi funktion umschreiben

[XXcD]

Ok hab das Problem gelöst.

So funktionierts:

Delphi-Quellcode:

function GetID(Files: string): AnsiString;
var
stream : TFileStream;
mem: TByteDynArray;
title_id: AnsiString;
str: word;
I: integer;
n: word;
begin
   stream := TFileStream.Create(Files,fmOpenRead);
   SetLength(mem,stream.Size);
   stream.read(mem[0],stream.Size);

n:=32;
for I := 1 to 16 do
begin
  if lstrcmpA(@mem[n], 'TITLE_ID') = 0 then
  begin
        n:= (mem[n+18] shl 8) or mem[n+19];
        SetString(title_id, PAnsiChar(@mem[n]), lstrlen(PAnsiChar(@mem[n])));
        Result:=title_id;
        break;
  end;
  inc(n, 32);
end;
Stream.Free;
end;

Vielen, Vielen Dank nochmal.