Update Delphi samples

Author: r57zone

Delphi/Get data/Unit1.pas

@@ -228,6 +228,9 @@ procedure TMain.FormCreate(Sender: TObject);
     @GetControllersData:=GetProcAddress(DllHandle, 'GetControllersData');
     @SetControllerData:=GetProcAddress(DllHandle, 'SetControllerData');
     @SetCentering:=GetProcAddress(DllHandle, 'SetCentering');
+  end else begin
+    ShowMessage('TrueOpenVR not found');
+    Halt;
   end;
 end;
 

Delphi/Sample VR init app/Unit1.pas

@@ -62,7 +62,7 @@ procedure TMain.FormCreate(Sender: TObject);
   Reg.CloseKey;
   end else begin
     ShowMessage('TrueOpenVR not found');
-    Exit;
+    Halt;
   end;
   Reg.Free;