[Thrasher]

Код:

var
  searchResult : TSearchRec;
  SearchDir: String;
  FName:String;
  I:byte;
  
  begin
  SearchDir:=ExtractFileDir(Application.ExeName)+'\Files\';
  if FindFirst(PlugDir+'*.tgf', faAnyFile, searchResult) = 0 then

  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;