Update Delphi sample

Author: r57zone

Delphi/Get data/Unit1.pas

@@ -117,8 +117,9 @@ procedure GetDriverPath;
   Reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_CURRENT_USER;
   if Reg.OpenKey('\Software\TrueOpenVR', false) = false then Exit;
-  if FileExists(Reg.ReadString('Driver')) = false then Exit;
-  DriverPath:=Reg.ReadString('Driver');
+  if FileExists(Reg.ReadString('Drivers') + Reg.ReadString('Driver')) = false then Exit;
+  DriverPath:=Reg.ReadString('Drivers') + Reg.ReadString('Driver');
+  Reg.CloseKey;
   Reg.Free;
 end;