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

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

  // Перед записью в файл, показываем размер файла
  ShowMessage('Размер файла = '+IntToStr(FileSize(myFile)));

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

  // Перед закрытием файла, покажем новый размер файла
  ShowMessage('Размер файла теперь = '+IntToStr(FileSize(myFile)));

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