diff --git a/components/codetools/pascalreadertool.pas b/components/codetools/pascalreadertool.pas
index 11a2ab40df..c398321fd5 100644
--- a/components/codetools/pascalreadertool.pas
+++ b/components/codetools/pascalreadertool.pas
@@ -589,8 +589,6 @@ end;
 
 function TPascalReaderTool.ExtractClassName(Node: TCodeTreeNode;
   InUpperCase: boolean; WithParents: boolean): string;
-var
-  InArray: Boolean;
 begin
   Result:='';
   while Node<>nil do begin