diff --git a/components/virtualtreeview-unstable/VirtualTrees.pas b/components/virtualtreeview-unstable/VirtualTrees.pas
index 4d9fd95fb..0fd855b64 100644
--- a/components/virtualtreeview-unstable/VirtualTrees.pas
+++ b/components/virtualtreeview-unstable/VirtualTrees.pas
@@ -3509,7 +3509,7 @@ var
   Initialized: Boolean;                // True if global structures have been initialized.
   NeedToUnitialize: Boolean;           // True if the OLE subsystem could be initialized successfully.
 
-{$I lclfunctions.inc}
+{.$I lclfunctions.inc}
 
 //----------------- TClipboardFormats ----------------------------------------------------------------------------------
 
diff --git a/components/virtualtreeview-unstable/lclfunctions.inc b/components/virtualtreeview-unstable/lclfunctions.inc
index 6cd9ee000..e605028d7 100644
--- a/components/virtualtreeview-unstable/lclfunctions.inc
+++ b/components/virtualtreeview-unstable/lclfunctions.inc
@@ -37,31 +37,6 @@ end;
 // TBaseVirtualTree.UpdateEditBounds, TBaseVirtualTree.GetDisplayRect, PaintTree,
 // TStringEditLink.PrepareEdit, TCustomVirtualStringTree.ComputeNodeHeight etc
 
-procedure ChangeBiDiModeAlignment(var Alignment: TAlignment);
-begin
-  case Alignment of
-  taLeftJustify: Alignment := taRightJustify;
-  taRightJustify: Alignment := taLeftJustify;
-  end;
-end;
-
-function INDEXTOOVERLAYMASK(i : longint) : longint;
-{ return type might be wrong }
-begin
-  INDEXTOOVERLAYMASK:=i shl 8;
-end;
-
-
-function MAKEROP4(fore,back : longint) : DWORD;
-begin
-   MAKEROP4:=DWORD((DWORD(back shl 8) and $FF000000) or DWORD(fore));
-end;
-
-function Failed(Status : HRESULT) : BOOL;
-begin
-   Failed:=Status and HRESULT($80000000)<>0;
-end;
-
 function MapWindowPoints(hWndFrom, hWndTo: HWND; var lpPoints; cPoints: UINT): Integer;
 var
   I:Integer;
@@ -87,14 +62,6 @@ begin
 end;
 
 
-{
-function InvalidateRect(aHandle : HWND; ARect : pRect; bErase : Boolean) : Boolean;
-begin
-
-  Result:=InvalidateRect(aHandle,ARect,bErase);
-end;
-}
-
 {$ifndef UseExternalDragManager}
 function RegisterDragDrop(hwnd:HWND; pDropTarget:IDropTarget):WINOLEAPI;stdcall;external 'ole32.dll' name 'RegisterDragDrop';