Перевод кода с C++

[BioHEX]

Здравствуйте, несколько лет не занимаюсь программированием, но срочно понадобилось написать программу для прямого чтения файлов с диска. За основу был взят исходник с wasm.ru.

ULong заменил Dword, ULONGLONG на Int64. Функцию malloc на GetMem и т.д.
Но возникло множество неувязок например:

Clusters = malloc(*ClCount * sizeof(ULONGLONG));

если заменить на GetMem, то в переменной Clusters сохранить результат не получится, надо указывать указатель.

И с мудреными сишными циклами тоже так и не разобрался

for (CnCount = (ULONG)(OutBuf->Extents[r].NextVcn.QuadPart - PrevVCN.QuadPart); CnCount; CnCount--, Cls++, Lcn.QuadPart++) Clusters[Cls] = Lcn.QuadPart;

Прошу помочь с переводом исходника на язык Delphi.

Загрузить с помощью вложений почему то не получилось, вот ссылка на файл http://wasm.ru/pub/21/files/lockfileswork/RawRead.rar.

Описание структур:

const 
  FSCTL_GET_RETRIEVAL_POINTERS = $090073;

type
  TExt = packed record
    NextVcn: Int64;
    Lcn: Int64;
  end;

  PRETRIEVAL_POINTERS_BUFFER = ^_RETRIEVAL_POINTERS_BUFFER;
  _RETRIEVAL_POINTERS_BUFFER = packed record
    ExtentCount: DWORD;
    StartingVcn: Int64;
    Extents: array [0..0] of TExt;
  end;

  _STARTING_VCN_INPUT_BUFFER = packed record
    StartingVcn: Int64;
  end;

[BioHEX]

Сообщение удалено.