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 }