uses

 Registry, Windows;

procedure TForm1.Button1Click(Sender: TObject);

var

 Registry: TRegistry;

begin

 { создаём объект TRegistry }

 Registry := TRegistry.Create;

 { устанавливаем корневой ключ; напрмер hkey_local_machine или hkey_current_user }

 Registry.RootKey := hkey_local_machine;

 { открываем и создаём ключ }

 Registry.OpenKey('software\MyRegistryExample',true);

 { записываем значение }

 Registry.WriteString('MyRegistryName','MyRegistry Value');

 { закрываем и освобождаем ключ }

 Registry.CloseKey;

 Registry.Free;

end;



// для удаления ключа используется функция Registry.DeleteKey