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;

Получить ссылку на материал