diff --git a/converter/convcodetool.pas b/converter/convcodetool.pas
index 086c877682..0fee79331d 100644
--- a/converter/convcodetool.pas
+++ b/converter/convcodetool.pas
@@ -314,7 +314,6 @@ function TConvDelphiCodeTool.AddDelphiAndLCLSections: boolean;
 var
   DelphiOnlyUnits: TStringList;  // Delphi specific units.
   LclOnlyUnits: TStringList;     // LCL specific units.
-  MainUsesNode, ImplementationUsesNode: TCodeTreeNode;
 
   procedure ConvUsesUnits(AUsesSection: TUsesSection; AUsesUnits: TStringList);
   var