Siguiendo lo que te he comentado, con un procedimiento como este:
Código Delphi
[-]procedure UpdateValues(const APathIniOrigen, APathIniDestino:string);
var
IniServidor, iniPC:TIniFile;
secciones, valores:TStrings;
i, j:integer;
begin
IniServidor := TIniFile.Create(APathIniOrigen);
iniPC := TIniFile.Create(APathIniDestino);
secciones := TStringList.Create;
valores := TStringList.Create;
try
IniServidor.ReadSections(Secciones);
for i := 0 to (secciones.Count - 1) do begin
IniServidor.ReadSectionValues(Secciones[i], valores);
for j := 0 to (Valores.Count - 1) do begin
iniPC.WriteString(Secciones[i], valores.Names[j], valores.ValueFromIndex[j]);
end;
end;
iniPc.UpdateFile;
finally
IniServidor.Free;
IniPC.Free;
end;
end;
Si lo llamas de la siguiente manera:
Código Delphi
[-]UpdateValues('\MainUpd\ParmsUpdate.ini', 'c:\WorkDir\Params.ini');
El resultado será algo así (que creo que es lo que necesitas):
Código:
[seccion1]
var1=1
var2=2
var3=3
[seccion2]
var21=500
var22=2
var23=600
[seccion3]
var31=1000
var32=2
var33=3