gistfile1.txt

fbFileWrite
(
  xExecute := xWriteToFileCmd,
  hFile := hFile,
  pBuffer := ADR(sWriteData),
  szSize := SIZEOF(sWriteData)
);

IF fbFileWrite.xDone THEN
  // здесь разместите код, который будет однократно выполнен после завершения записи
ELSIF fbFileWrite.xError
  // здесь разместите код обработки ошибок
END_IF

// этот код будет выполняться каждый цикл задачи
// в том числе, и во время записи в файл
// потому что экземпляр fbFileWrite выполняется асинхронно
i := i + 1;