diff --git a/ide/main.pp b/ide/main.pp
index 0fd1e07c34..f051e640e6 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -12163,7 +12163,7 @@ end;
 
 function TMainIDE.DoManageExamples: TModalResult;
 begin
-  ShowManageExamplesDlg;
+  Result:=ShowManageExamplesDlg;
 end;
 
 function TMainIDE.DoBuildLazarusSub(Flags: TBuildLazarusFlags): TModalResult;
diff --git a/ide/manageexamples.pas b/ide/manageexamples.pas
index 81abefd708..f0d14df26b 100644
--- a/ide/manageexamples.pas
+++ b/ide/manageexamples.pas
@@ -42,7 +42,7 @@ type
     procedure SetIdleConnected(const AValue: boolean);
     procedure OnIdle(Sender: TObject; var Done: Boolean);
   public
-    constructor Create(AnOwner: TComponent);
+    constructor Create(AnOwner: TComponent); override;
     destructor Destroy; override;
     property IdleConnected: boolean read fIdleConnected write SetIdleConnected;
   end;
@@ -93,8 +93,6 @@ type
 { TListFileSearcher }
 
 procedure TListFileSearcher.DoFileFound;
-var
-  ShortName, FilePath: String;
 begin
   fForm.ProjectsListBox.Items.Add(FileName)
 end;