Mine

procedure TForm1.Button1Click(Sender: TObject);
begin
  reg:=TRegistry.create;
  reg.RootKey:=HKEY_CURRENT_USER;
  try
  reg.OpenKey('Software\Game\bla and blubb\lala\KA\',true);
  reg.WriteExpandString('', edit1.text);
 finally
    reg.free;
  end;
end;


end.