[lmikle]

Код:

var
  iFound : Integerl
  F : TSearchRec;
begin
  iFound := FindFirst(path + '*.tfg',faAnyfile,F);
  if ifound = 0 Then
    begin
       // файл нашли, переименовываем.
       RenameFile(PChar(path + F.name),PChar(path + 'get.ini'));
    end;
  FindClose(F);
end;

то?

ЗЫ. Это сработает на первом файла. Если файла 2, то переименует только первый.
ЗЗЫ. формат функции RenameFile писал по памяти, м.б. там еще третий параметр есть, типа что делать при ошибке... не помню.