diff --git a/components/virtualtreeview-unstable/demos/ole/Main.lfm b/components/virtualtreeview-unstable/demos/ole/Main.lfm
index ec1fbf380..7cd508fc3 100644
--- a/components/virtualtreeview-unstable/demos/ole/Main.lfm
+++ b/components/virtualtreeview-unstable/demos/ole/Main.lfm
@@ -3,8 +3,6 @@ object MainForm: TMainForm
   Height = 575
   Top = 261
   Width = 790
-  HorzScrollBar.Page = 789
-  VertScrollBar.Page = 574
   ActiveControl = Button1
   Caption = 'Demo for drag''n drop and clipboard transfers'
   ClientHeight = 575
@@ -13,6 +11,7 @@ object MainForm: TMainForm
   Font.Height = -12
   Font.Name = 'Arial'
   OnCreate = FormCreate
+  LCLVersion = '0.9.27'
   Visible = True
   object Label1: TLabel
     Left = 10
@@ -24,6 +23,7 @@ object MainForm: TMainForm
     Font.Height = -11
     Font.Name = 'Arial'
     ParentColor = False
+    ParentFont = False
   end
   object Label2: TLabel
     Left = 360
@@ -36,6 +36,7 @@ object MainForm: TMainForm
     Font.Height = -11
     Font.Name = 'Arial'
     ParentColor = False
+    ParentFont = False
     WordWrap = True
   end
   object Panel3: TPanel
@@ -59,6 +60,7 @@ object MainForm: TMainForm
       Font.Name = 'Arial'
       Font.Style = [fsBold]
       ParentColor = False
+      ParentFont = False
       WordWrap = True
     end
   end
@@ -90,6 +92,7 @@ object MainForm: TMainForm
     Height = 180
     Top = 116
     Width = 330
+    BorderStyle = bsSingle
     ClipboardFormats.Strings = (
       'Plain text'
       'Unicode text'
@@ -110,6 +113,7 @@ object MainForm: TMainForm
     Header.MainColumn = -1
     Header.Options = [hoColumnResize, hoDrag]
     HintMode = hmTooltip
+    ParentFont = False
     ParentShowHint = False
     ShowHint = True
     TabOrder = 3
@@ -131,6 +135,7 @@ object MainForm: TMainForm
     Height = 180
     Top = 116
     Width = 330
+    BorderStyle = bsSingle
     ClipboardFormats.Strings = (
       'CSV'
       'HTML Format'
@@ -154,6 +159,7 @@ object MainForm: TMainForm
     Header.Options = [hoColumnResize, hoDrag]
     HintMode = hmTooltip
     Images = TreeImages
+    ParentFont = False
     ParentShowHint = False
     ShowHint = True
     TabOrder = 4
@@ -268,7 +274,7 @@ object MainForm: TMainForm
     end
     object TabSheet1: TTabSheet
       Caption = 'Tips'
-      ClientHeight = 219
+      ClientHeight = 217
       ClientWidth = 677
       ImageIndex = 2
       object Label8: TLabel
diff --git a/components/virtualtreeview-unstable/demos/ole/Main.pas b/components/virtualtreeview-unstable/demos/ole/Main.pas
index 4812787b1..e063bceb8 100644
--- a/components/virtualtreeview-unstable/demos/ole/Main.pas
+++ b/components/virtualtreeview-unstable/demos/ole/Main.pas
@@ -167,7 +167,8 @@ begin
       if Succeeded(DataObject.EnumFormatEtc(DATADIR_GET, EnumFormat)) then
       begin
         EnumFormat.Reset;
-        while EnumFormat.Next(1, Format, Fetched) = S_OK do
+        SetLength(Formats, 0);
+        while EnumFormat.Next(1, Format, @Fetched) = S_OK do
         begin
           SetLength(Formats, Length(Formats) + 1);
           Formats[High(Formats)] := Format.cfFormat;
@@ -204,8 +205,10 @@ end;
 
 procedure TMainForm.FormCreate(Sender: TObject);
 
+{
 var
   Stream: TResourceStream;
+}
 
 begin
   Logger.Channels.Add(TIPCChannel.Create);
diff --git a/components/virtualtreeview-unstable/demos/ole/ole.lpi b/components/virtualtreeview-unstable/demos/ole/ole.lpi
index 9468b2260..89227e893 100644
--- a/components/virtualtreeview-unstable/demos/ole/ole.lpi
+++ b/components/virtualtreeview-unstable/demos/ole/ole.lpi
@@ -9,7 +9,6 @@
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <IconPath Value="./"/>
       <TargetFileExt Value=".exe"/>
     </General>
     <VersionInfo>
@@ -34,7 +33,7 @@
         <PackageName Value="virtualtreeview_package"/>
       </Item2>
     </RequiredPackages>
-    <Units Count="5">
+    <Units Count="2">
       <Unit0>
         <Filename Value="ole.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -45,29 +44,15 @@
         <ComponentName Value="MainForm"/>
         <HasResources Value="True"/>
         <IsPartOfProject Value="True"/>
+        <ResourceBaseClass Value="Form"/>
         <ResourceFilename Value="Main.lrs"/>
         <UnitName Value="Main"/>
       </Unit1>
-      <Unit2>
-        <Filename Value="..\..\include\intf\win32\dragmanager.inc"/>
-        <IsPartOfProject Value="True"/>
-      </Unit2>
-      <Unit3>
-        <Filename Value="..\..\include\intf\win32\olemethods.inc"/>
-        <IsPartOfProject Value="True"/>
-      </Unit3>
-      <Unit4>
-        <Filename Value="..\..\include\intf\win32\intf_uses.inc"/>
-        <IsPartOfProject Value="True"/>
-      </Unit4>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="5"/>
+    <Version Value="8"/>
     <PathDelim Value="\"/>
-    <CodeGeneration>
-      <Generate Value="Faster"/>
-    </CodeGeneration>
     <Linking>
       <Debugging>
         <UseHeaptrc Value="True"/>