var
  fileName : string;
  myFile   : TextFile;
  data     : string;

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

  // Запись в файл
  Write(myFile, 'Hello World');

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

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

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

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

  // Теперь проверяем существует ли файл
  if FileExists(fileName)
  then ShowMessage(fileName+' существует')
  else ShowMessage(fileName+' не существует');

  // Удаление файла и новый просмотр
  DeleteFile(fileName);
  if FileExists(fileName)
  then ShowMessage(fileName+' всё ещё существует!')
  else ShowMessage(fileName+' больше не существует');
end;