[Pyro]

похожее делал так:

Код:

procedure InitIni;
begin
  inimap := TiniManager.Create('ini.ini')
  inimap.define('section', 'somevar', '100', TInt.Create(@intvar));
  inimap.define('section', 'somevar2', 'default', TStr.Create(@strvar));
  inimap.define('section', 'somevar3', 'yes', TBool.Create(@boolvar));
  inimap.define('main', 'form-x', '100', TProp.Create(Form1, 'left'));
  inimap.define('main', 'form-y', '100', TProp.Create(Form1, 'top'));  
end; 

inimap.write;
inimap.read;

хотя TProp.Create(...) можно заменить разными версиями метода .define