var
  myFile : TextFile;
  letter : char;
  text   : string;

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

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

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

  // Повторное открытие файла для чтения
  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;