function 
ReadIni(ASection, AString : String
) : String
;
var
   
sIniFile: TIniFile;
   sPath : String
[60];
const

   S = 'xyz'
; { стандартная строка для выдачи ошибок чтения }


begin
   
GetDir(0,sPath);
   sIniFile := TIniFile.Create(sPath + 'Name.INI'
);
   Result := sIniFile.ReadString(ASection, AString, S); { [Section] String=Value }


   sIniFile.Free;
end
;

procedure 
WriteIni(ASection, AString, AValue : String
);
var

   sIniFile: TIniFile;
   sPath : String
[60];
begin

   GetDir(0,sPath);
   sIniFile := TIniFile.Create(sPath + 'Name.INI'
);
   sIniFile.WriteString(ASection, AString, AValue);; { [Section] String=Value }


   sIniFile.Free;
end
;

{ReadSection считывает все пункты указанной секции - т.е. ключи перед знаком "="
ReadSectionValues полностью считывает все строки указанной секции, т.е. Punkt=xyz }