var
  myFile : TextFile;
  text   : string;

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

  // Запись нескольких известных слов в этом файл
  WriteLn(myFile, 'Hello');
  WriteLn(myFile, 'World');

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

  // Попытка переименовать файл - гарантируется, что никакой такой файл не существует сначала!
  DeleteFile('NewName.txt');
  Rename(myFile, 'NewName.txt');

  // Теперь читаем файл
  AssignFile(myFile, 'NewName.txt');
  ReSet(myFile);

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

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