Function GetFromReg(Section, Ident, DefaultVal: String): String;
var
  ADCRegistry: TRegIniFile;
begin
  try
    ADCRegistry := TRegIniFile.Create('Any name you want');
    Result := ADCRegistry.ReadString(Section, Ident, DefaultVal);
  finally
    ADCRegistry.Free;
    ADCRegistry := nil;
  end;
end;

Function PutToReg(Section, Ident, Value: String): String;
var
  ADCRegistry: TRegIniFile;
begin
  try
    ADCRegistry := TRegIniFile.Create('Any name you want');
    ADCRegistry.WriteString(Section, Ident, Value);
  finally
    ADCRegistry.Free;
    ADCRegistry := nil;
  end;
end;