Переименование группы файлов

[Meh]

Проблема в переименовании файлов. Упорно не хотят переименовываться в указанном каталоге. Переименовываются если их бросить в каталог с программой. Подскажите, что не так.

var
searchResult:TSearchRec;
f,fn,path:string;
s:integer;
begin
Path:='d:\ПРОГА\Renamer\1\';
if FindFirst(Path + '*.ini', faAnyFile, searchResult)=0
then
begin
repeat
f:=searchResult.Name;
fn:=GetFileNameWOExt(f);
s:=Length(fn);
fn:=copy(fn,1,s-4);
delete(fn,9,4);
fn:=fn+'.ini';
Renamefile(f,fn);
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;

[Stilet]

Renamefile(f,fn);

В обоих параметрах отой функи должен указываться полный путь

[Meh]

Сообщение от Stilet

В обоих параметрах отой функи должен указываться полный путь

Спасибо! Все получилось!