Creo que esa es la forma más fácil.
Otra manera sería leer todas las propiedades de una sección y escribirlas en la nueva sección.
Más o menos así:
Código Delphi
[-]
OldSection, NewSection : string;
Claves, Valores : TStrings;
ReadSection(OldSection, Claves);
ReadSectionValues(OldSection, Valores);
for i := 0 to Claves.Count -1 do
WriteString(NewSection, Claves[i], Valores[i]);