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;