diff --git a/ideintf/listviewpropedit.pp b/ideintf/listviewpropedit.pp
index 834cdef6e9..e0821fc8e7 100644
--- a/ideintf/listviewpropedit.pp
+++ b/ideintf/listviewpropedit.pp
@@ -261,7 +261,7 @@ begin
       //Recreate new items or modify
       for I := 0 to TreeView1.Items.Count - 1 do
       begin
-        Node := TreeView1.Items.Items[I];
+        Node := TreeView1.Items[I];
         if Node.Level = 0 then
         begin
           Item := FListView.Items.Add;
diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index 5310f70ffb..eeb7df126e 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -1895,7 +1895,7 @@ type
     procedure ConsistencyCheck;
     procedure WriteDebugReport(const Prefix: string; AllNodes: boolean);
     property Count: Integer read GetCount;
-    property Items[Index: Integer]: TTreeNode read GetNodeFromIndex; default;
+    property Item[Index: Integer]: TTreeNode read GetNodeFromIndex; default;
     property KeepCollapsedNodes: boolean
       read FKeepCollapsedNodes write FKeepCollapsedNodes;
     property Owner: TCustomTreeView read FOwner;
diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index 2f99600820..70745bf1bc 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -2157,7 +2157,7 @@ procedure TTreeNodes.DefineProperties(Filer: TFiler);
       Result := False;
       for I := 0 to Count - 1 do
       begin
-        Result := not Items[I].IsEqual(Nodes[I]);
+        Result := not Item[I].IsEqual(Nodes[I]);
         if Result then Break;
       end
     end;
@@ -3286,7 +3286,7 @@ begin
       lNode := lNode.GetNextExpanded
     else
     if Items.Count > 0 then
-      lNode := FTreeNodes.Items[0];
+      lNode := FTreeNodes.GetFirstNode;
     if lNode <> nil then
       Key:=VK_UNKNOWN;
   end;