ChangeFileExt
Функция
Изменяет расширение имени файла SysUtils unit
  function ChangeFileExt ( const FileName, Extension : string ) : string;

Delphi Sources

Описание
Функция ChangeFileExt изменяет расширение файла. Имя файла задаётся полностью, через запятую задаётся новоё расширение, смотри пример.
Похожие команды
ExtractFileExt  Извлекает из полного имени файла его расширение

ProcessPath  Разделяет строку диск/путь/имя файла на ее составляющие части

 
Пример кода : Переименовывает Unit1.dcu в Unit1.old
var
  oldName, newName : string;

begin
  // Попытка переименовать текущий Unit1.dcu в Uni1.old
  oldName := 'Unit1.dcu';
  newName := ChangeFileExt(oldName, '.new');

  // Показ нового и старого значения
  ShowMessage('OldName = '+oldName);
  ShowMessage('NewName = '+newName);
end;
OldName = Unit1.dcu
NewName = Unit1.new