Код:
inFile :='c:\app\test.txt';
if ExtractFileExt(inFile ) = '.txt' then // не помню возвращает 'txt' или '.txt'
////
на cамом деле вопрос не понятен, что вы хотите менять. Если не открытый файл, то провряйте
Код:
if FileExist(inFile ) then
begin
// create other
end
Если открытый, то закрываем и
Код:
RanameFile()
///or
ChangeFileExt()