Пример кода : Создание файла, его переименовка, и затем повторное его открытие с новым именем
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;