一个注册表的问题。急，急，急！！！可我只有30分了。(30分)

procedure TfmDatabaseSet.SetDatabase;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_USERS;
[red]    if not Reg.KeyExists('SOFTWARE/HS/DatabaseSet/DatabaseKind') then
       Reg.CreateKey('SOFTWARE/HS/DatabaseSet/DatabaseKind');[/red]
    Reg.OpenKey('SOFTWARE/HS/DatabaseSet/DatabaseKind',true);
    Reg.OpenKey('SOFTWARE/HS/DatabaseSet/ServerName',true);
    Reg.OpenKey('SOFTWARE/HS/DatabaseSet/DatabaseName',true);
    Reg.WriteString('DatabaseKind',Combobox1.text);
    Reg.WriteString('ServerName',Edit4.text);
    Reg.WriteString('DatabaseName',Edit5.text);
  finally
    Reg.Free;
  end;
end;