Update Delphi samples

Author: r57zone

Delphi/Get data/Unit1.pas

@@ -142,7 +142,7 @@ procedure TMain.GetBtnClick(Sender: TObject);
   //VR Init info
   Reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_CURRENT_USER;
-  if Reg.OpenKey('\Software\TrueOpenVR', true) then begin
+  if Reg.OpenKey('\Software\TrueOpenVR', false) then begin
   try
   if Reg.ReadBool('Scale') = false then
     Label8.Caption:='Scale = false'

Delphi/Sample VR init app/Unit1.pas

@@ -47,7 +47,7 @@ procedure TMain.FormCreate(Sender: TObject);
   //VR Init info
   Reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_CURRENT_USER;
-  if Reg.OpenKey('\Software\TrueOpenVR', true) then begin
+  if Reg.OpenKey('\Software\TrueOpenVR', false) then begin
   try
     ScreenScale:=Reg.ReadBool('Scale');
     ScreenIndex:=Reg.ReadInteger('ScreenIndex');