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 DeleteFile(fileName)
  then ShowMessage(fileName+' удалён')
  else ShowMessage(fileName+' не удалён');

  // Пытаемся удалить файл повторно
  if DeleteFile(fileName)
  then ShowMessage(fileName+' deleted OK again!')
  else ShowMessage(fileName+' не удалён, ошибка = '+
                   IntToStr(GetLastError));
end;