C++ zu Delphi funktion umschreiben

[XXcD]

Also ich bekomme den Code noch nicht so ganz zum laufen.

Beim ausführen bekomme ich immer ein Access Violation.

Delphi-Quellcode:

var
stream : TFileStream;
mem: TByteDynArray;
title_name: AnsiString;
indx: integer;
str: word;
pos : word;
begin
   stream := TFileStream.Create(Files,fmOpenRead);
   stream.read(mem,2048);


str := mem[8] or (mem[9] shl 8);
pos := mem[12] or (mem[13] shl 8);
indx := 0;
title_name := '';
while str < Length(mem) do
begin
  if mem[str] = 0 then break;
  if not lstrcmpA(@mem[str], 'TITLE') = 0 then
  begin
    SetString(title_name, PAnsiChar(@mem[pos]), Sizeof(mem));
    //title_name := Copy(title_name, 1, 63);
    break;
  end;
  while mem[str] <> 0 do inc(str);
  inc(str);
  inc(pos, mem[28 + indx] or (mem[29 + indx] shl 8));
  inc(indx, 16);
end;
end;

Edit: Ich nutze Delphi 2007, hatte nen paar Probleme mit OpenGL in der 2009 Version.