[Alegun]

Оффтоп:

Сообщение от Alloc

... но вот свои предрассудки...

Радует, что живой человек вопрос задал, а не бот

Можно немного упростить, убрав из var и вызывая экземлярчик TRegistry динамически

Код:

 with TRegistry.Create do
  begin
   RootKey:=    ...
   OpenKey(     ...
   ...
   WriteString( ...
   ...
   CloseKey;
   Free;
  end;