Изменение корневого ключа (root key) реестра

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);

var

WinIni : TRegIniFile;

begin

WinIni := TRegIniFile.Create('');

WinIni.RootKey := HKEY_LOCAL_MACHINE;

WinIni.WriteString('Stroka','Primer','Primer Stroki');

WinIni.Free;

end;