fix Delphi sample

Author: r57zone

Delphi/Get data/Unit1.dcu

@@ -14,7 +14,6 @@ object Main: TMain
   Font.Style = []
   OldCreateOrder = False
   Position = poScreenCenter
-  OnClose = FormClose
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13

Delphi/Get data/Unit1.dfm

@@ -54,7 +54,6 @@   TMain = class(TForm)
     procedure FormCreate(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     { Private declarations }
   public
@@ -99,7 +98,7 @@   _Controller = record
 
 var
   Main: TMain;
-  DriverPath: string;
+  LibPath: string;
   DllHandle: HMODULE;
   GetHMDData: function(out myHMD: THMD): DWORD; stdcall;
   GetControllersData: function(out myController, myController2: TController): DWORD; stdcall;
@@ -110,15 +109,16 @@ implementation
 
 {$R *.dfm}
 
-procedure GetDriverPath;
+procedure GetLibPath;
 var
   Reg: TRegistry;
 begin
+  LibPath:='';
   Reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_CURRENT_USER;
   if Reg.OpenKey('\Software\TrueOpenVR', false) = false then Exit;
-  if FileExists(Reg.ReadString('Drivers') + Reg.ReadString('Driver')) = false then Exit;
-  DriverPath:=Reg.ReadString('Drivers') + Reg.ReadString('Driver');
+  LibPath:=Reg.ReadString('Library');
+  if FileExists(LibPath) = false then LibPath:='';
   Reg.CloseKey;
   Reg.Free;
 end;
@@ -214,6 +214,8 @@ procedure TMain.GetBtnClick(Sender: TObject);
 
 procedure TMain.CloseBtnClick(Sender: TObject);
 begin
+  if DllHandle <> 0 then
+    FreeLibrary(DllHandle);
   Close;
 end;
 
@@ -222,9 +224,9 @@ procedure TMain.FormCreate(Sender: TObject);
   Label32.Caption:='TOVR - Open Source Virtual Reality' + #13#10 + 'standard for all devices';
   Application.Title:=Caption;
 
-  GetDriverPath;
-  if FileExists(DriverPath) then begin
-    DllHandle:=LoadLibrary(PChar(DriverPath));
+  GetLibPath;
+  if LibPath <> '' then begin
+    DllHandle:=LoadLibrary(PChar(LibPath));
     @GetHMDData:=GetProcAddress(DllHandle, 'GetHMDData');
     @GetControllersData:=GetProcAddress(DllHandle, 'GetControllersData');
     @SetControllerData:=GetProcAddress(DllHandle, 'SetControllerData');
@@ -240,6 +242,7 @@ procedure TMain.Button1Click(Sender: TObject);
   iResult: integer;
 begin
   iResult:=SetCentering(IDHMD);
+  if iResult = 1 then ShowMessage('Centering success');
 end;
 
 procedure TMain.Button2Click(Sender: TObject);
@@ -248,9 +251,4 @@ procedure TMain.Button2Click(Sender: TObject);
   SetControllerData(IDController2, 42517);
 end;
 
-procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
-  FreeLibrary(DllHandle);
-end;
-
 end.