//Пример кода : Чтение простых символов единовременно из текстового файла 
var
  myFile : TextFile;
  letter : char;
  text   : string;

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

  // Запись строки текста в файл
  WriteLn(myFile, 'Hello');
  WriteLn(myFile, 'To you');

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

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

  // Показ содержимого файла
  while not Eof(myFile) do
  begin
    // Процесс считывание одной строки
    ShowMessage('Начало новой строки :');
    while not Eoln(myFile) do
    begin
      Read(myFile, letter);   // Чтение и отображение одного символа
      ShowMessage(letter);
    end;
    ReadLn(myFile, text);
  end;

  // Закрываем файл в последний раз
  CloseFile(myFile);
end;

//Пример кода : Чтение word данных из типизированного двоичного файла 
var
  myWord, myWord1, myWord2 : Word;
  myFile : File of Word;

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

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

  // Закрываем файл
  CloseFile(myFile);

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

  // Показ содержимого файла
  while not Eof(myFile) do
  begin
    Read(myFile, myWord);
    ShowMessage(IntToStr(myWord));
  end;

  // Закрываем файл в последний раз
  CloseFile(myFile);
end;