diff --git a/components/codetools/codetoolsstructs.pas b/components/codetools/codetoolsstructs.pas
index 60789fee7d..2b6637e214 100644
--- a/components/codetools/codetoolsstructs.pas
+++ b/components/codetools/codetoolsstructs.pas
@@ -503,8 +503,8 @@ var
 begin
   Node:=FindNode(Name);
   if Node<>nil then begin
-    FTree.Delete(Node);
     Item:=PStringToStringTreeItem(Node.Data);
+    FTree.Delete(Node);
     Dispose(Item);
   end;
 end;