diff --git a/converter/convertdelphi.pas b/converter/convertdelphi.pas
index 997cf895eb..91e26cf84a 100644
--- a/converter/convertdelphi.pas
+++ b/converter/convertdelphi.pas
@@ -155,8 +155,6 @@ type
     // Units that are found and will be added to project and converted.
     fUnitsToAddToProject: TStringList;
     fSettings: TConvertSettings;
-    fDoneScan: Boolean;
-    procedure OnIdle(Sender: TObject; var Done: Boolean);
     function ConvertSub: TModalResult;
     procedure CleanUpCompilerOptionsSearchPaths(Options: TBaseCompilerOptions);
     procedure SetCompilerModeForDefineTempl(DefTempl: TDefineTemplate);
@@ -956,15 +954,6 @@ begin
   inherited Destroy;
 end;
 
-procedure TConvertDelphiPBase.OnIdle(Sender: TObject; var Done: Boolean);
-begin
-  if not fDoneScan then begin
-    CacheUnitsInPath(TrimFilename(fSettings.MainPath+'../'));
-    fDoneScan:=True;
-  end;
-  Done:=True;
-end;
-
 // Creates or updates a lazarus project (.lpi+.lpr) or package.
 function TConvertDelphiPBase.Convert: TModalResult;
 var