var
  myWord, myWord1, myWord2, myWord3, myWord4 : Word;
  myFile : File of Word;

begin
  // Попытка открыть бинарный файл Test.cus binary в режиме только для записи
  AssignFile(myFile, 'Test.cus');
  ReWrite(myFile);

  // Запись нескольких строк Word данных в файл
  myWord1 := 12;
  myWord2 := 34;
  myWord3 := 56;
  myWord4 := 78;
  Write(myFile, myWord1, myWord2, myWord3, myWord4);

  // Закрытие файла
  CloseFile(myFile);

  // Повторное открытие файла только для чтения
  FileMode := fmOpenRead;
  Reset(myFile);

  // Перемещение в начало 3-ей записи
  Seek(myFile, 2);    // Записи начинаются с 0

  // Показ этой записи
  Read(myFile, myWord);
  ShowMessage('Record 3 = '+IntToStr(myWord));

  // Закрытие файла
  CloseFile(myFile);
end;