如何进行注册表CreateKey.请帮忙！（20分)

Question

procedure TForm1.Button1Click(Sender: TObject);var Reg: TRegistry; 
begin 
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SoftWare\MyKey',True);
Reg.WriteString('User',edtUser.Text);
Reg.WriteString('Password',edtPassword.Text);
Reg.WriteString('ip',edtip.Text);
Reg.WriteString('S_User',edit1.Text);
Reg.WriteString('S_Password',edit2.Text);
Reg.WriteString('S_ip',edit3.Text);Reg.Free; end;

Answer 1

const
  SYSKEY='\SoftWare\aaa\bbbb';
var
  pReg: TRegistry;
      if not pReg.OpenKey(SYSKEY,false) then
        pReg.CreateKey(SYSKEY);
      if pReg.OpenKey(SYSKEY,false)=true then
      begin
        pReg.WriteString('Server',Trim(MaskEdit1.Text));
        pReg.WriteString('DataBase',Trim(MaskEdit2.Text));
        pReg.WriteString('User',Trim(MaskEdit3.Text));
        pReg.WriteString('Password',Trim(MaskEdit4.Text));
      end

Answer 2

理论上是可以的不知道为什么还是无法窜建.
const 
   SYSKEY='HKEY_USERS\.DEFAULT\SoftWare\aaa\bbbb';
var
  pReg: TRegistry;
begin
  if not pReg.OpenKey(SYSKEY,false) then
    pReg.CreateKey(SYSKEY);
  if pReg.OpenKey(SYSKEY,false)=true then
  begin
    pReg.WriteString('Server',Trim(Edit1.Text));
  end
end;

Answer 3

result:=HKEY_CURRENT_USER;
RegCreateKey(HKEY_CURRENT_USER,'Software\Microsoft\Windows\CurrentVersion\Policies\System',result);//System为创建的KEY.