procedure CambiarNombreSeccion(const RutaNombre, Viejo, Nuevo: string);
var
TS: TStrings;
i : Integer;
begin
TS:= TStringList.Create;
try
TS.LoadFromFile(RutaNombre);
for i:= 0 to ts.Count -1 do
if Pos(Viejo,'[' + TS[i] + ']') > 0 then
TS[i]:= '[' + Nuevo + ']';
TS.SaveToFile(RutaNombre);
finally
TS.Free;
end;
end;