关于注册表的操组..请问TRegistry中怎样建立一个新的字符串.

Question

//from Delphi Help
procedure TForm1.WMEndSession(var Message: TWMEndSession);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True) then
//                  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~aa
   begin
      Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
//                    ~~~~~~''      ~~~~~bb
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;
end;