diff --git a/components/virtualtreeview-unstable/demos/vtbasic/VTDBExample.lfm b/components/virtualtreeview-unstable/demos/vtbasic/VTDBExample.lfm
index c71e03ad5..f90e604d9 100644
--- a/components/virtualtreeview-unstable/demos/vtbasic/VTDBExample.lfm
+++ b/components/virtualtreeview-unstable/demos/vtbasic/VTDBExample.lfm
@@ -1,7 +1,7 @@
 object frmVTDBExample: TfrmVTDBExample
-  Left = 132
+  Left = 154
   Height = 482
-  Top = 132
+  Top = 154
   Width = 553
   ActiveControl = VT
   Caption = 'Database Test'
@@ -49,7 +49,7 @@ object frmVTDBExample: TfrmVTDBExample
         item
           ImageIndex = 3
           Layout = blGlyphRight
-          Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coResizable, coShowDropMark, coVisible]
+          Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coResizable, coShowDropMark, coVisible, coAllowFocus]
           Position = 1
           Text = 'Company'
           Width = 200
diff --git a/components/virtualtreeview-unstable/demos/vtbasic/vtbasic.lpi b/components/virtualtreeview-unstable/demos/vtbasic/vtbasic.lpi
index 5adbec313..004285740 100644
--- a/components/virtualtreeview-unstable/demos/vtbasic/vtbasic.lpi
+++ b/components/virtualtreeview-unstable/demos/vtbasic/vtbasic.lpi
@@ -94,6 +94,7 @@
         <ComponentName Value="frmVTCheckList"/>
         <HasResources Value="True"/>
         <IsPartOfProject Value="True"/>
+        <ResourceBaseClass Value="Form"/>
         <UnitName Value="VTCheckList"/>
       </Unit7>
       <Unit8>