gistfile1.txt

SysFile.SysFileWrite(hFile := hFile, ADR(sWriteData), SIZEOF(sWriteData),
  ADR(dwResult) );
// этот код будет выполнен только после окончания записи в файл...
// ...потому что функция SysFileWrite выполняется синхронно
i := i + 1;