[Karsh]

А про StringReplace все забыли?

Код:

procedure ChangeText(InFilename, OutFilename, ChtoIschem, NaChtoMenyaem: string);
var
  txt: TStrings;
begin
  txt:= TStringList.Create;
  try
    txt.LoadFromFile(InFilename);
    txt.Text:= StringReplace(txt.Text, ChtoIschem, NaChtoMenyaem, [rfReplaceAll]);
    txt.SaveToFile(OutFilename);
  finally
    txt.Free;
  end;
end;

И так с каждым файлом (просто в цикле эту функцию вызывай с новым именем файла).