diff --git a/components/codetools/examples/runcfgscript.lpi b/components/codetools/examples/runcfgscript.lpi
index 396fe48b1c..4fd2585924 100644
--- a/components/codetools/examples/runcfgscript.lpi
+++ b/components/codetools/examples/runcfgscript.lpi
@@ -33,30 +33,12 @@
         <PackageName Value="CodeTools"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="5">
+    <Units Count="1">
       <Unit0>
-        <Filename Value="runcfgscript.pas"/>
+        <Filename Value="runcfgscript.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="RunCfgScript"/>
       </Unit0>
-      <Unit1>
-        <Filename Value="scanexamples/brokenfilenames.pas"/>
-        <IsPartOfProject Value="True"/>
-        <UnitName Value="BrokenFilenames"/>
-      </Unit1>
-      <Unit2>
-        <Filename Value="scanexamples/brokenincfiles.inc"/>
-        <IsPartOfProject Value="True"/>
-      </Unit2>
-      <Unit3>
-        <Filename Value="scanexamples/empty.inc"/>
-        <IsPartOfProject Value="True"/>
-      </Unit3>
-      <Unit4>
-        <Filename Value="scanexamples/indentation.pas"/>
-        <IsPartOfProject Value="True"/>
-        <UnitName Value="Indentation"/>
-      </Unit4>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
diff --git a/ide/projectinspector.pas b/ide/projectinspector.pas
index 787f2bbd1c..4195b25d72 100644
--- a/ide/projectinspector.pas
+++ b/ide/projectinspector.pas
@@ -304,6 +304,11 @@ var
     Result.Caption:=ACaption;
     Result.OnClick:=AnEvent;
     Result.Enabled:=EnabledFlag;
+    Result.Checked:=false;
+    Result.ShowAlwaysCheckable:=false;
+    Result.Visible:=true;
+    Result.RadioItem:=false;
+    Result.ImageIndex:=-1;
     inc(ItemCnt);
   end;
 
diff --git a/lcl/forms.pp b/lcl/forms.pp
index 9a88264861..a764a1f910 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -1616,7 +1616,7 @@ function GetLongHint(const Hint: string): string;
 
 
 var
-  Application: TApplication = nil;
+  Application: TApplication = nil; //bla
   Screen: TScreen = nil;
   ExceptionObject: TExceptObject;
   HintWindowClass: THintWindowClass = THintWindow;