BCB和Delphi添加Windows服务的描述性文字

Delphi:
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    with reg do begin
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey('SYSTEM\CurrentControlSet\Services\' + Name, false) then
        WriteString('Description', 'My Description');
      CloseKey;
    end;
  finally
    reg.Free;
  end;    
end;

C++ Builder:  
TRegistry *Reg = new TRegistry();
try {                                 
    Reg->RootKey = HKEY_LOCAL_MACHINE;
    if (Reg->OpenKey("SYSTEM\\CurrentControlSet\\Services\\" + Name, false)) {
        Reg->WriteString("Description", "My Description");
    }
} __finally {
    delete Reg;
}