[Thrasher]

Код:

Uses Windows,SysUtils,Classes;

var
  searchResult : TSearchRec;
  SearchDir: String;
  FName:String;
  I:byte;
  
  begin
  SearchDir:=ExtractFileDir(Application.ExeName)+'\Files\';
  if FindFirst(PlugDir+'*.tgf', faAnyFile, searchResult) = 0 then //если не равно 0, тогда файлы, удовлетворяющие критерию поиска НЕ найдены 

  begin
    repeat
   FName:=searchResult.Name;
   I:=Pos(Fname,'.');
   Delete(Fname,I+1,3);
  Fname:=FName:='ini';
    RenameFile(PChar(SearchDir + SearchResult.name),PChar(SearchDir + FName));
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);
  end;

 end;

Если надо копировать файлы, тогда используй функцию CopyFile(ExistFile:PChar;TargetFile:PChar):boolean ;