diff --git a/ide/componentlist.pas b/ide/componentlist.pas
index 6ec4b93424..852ee0c506 100644
--- a/ide/componentlist.pas
+++ b/ide/componentlist.pas
@@ -90,7 +90,7 @@ type
     procedure chbKeepOpenChange(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TreeMouseDown(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
+      {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
     procedure ListTreeSelectionChanged(Sender: TObject);
     procedure miCollapseAllClick(Sender: TObject);
     procedure miCollapseClick(Sender: TObject);
diff --git a/ide/frames/project_valconv_options.pas b/ide/frames/project_valconv_options.pas
index 2d25c40534..be973d474d 100644
--- a/ide/frames/project_valconv_options.pas
+++ b/ide/frames/project_valconv_options.pas
@@ -87,16 +87,9 @@ end;
 
 procedure TIdeProjectValConvOptionsFrame.WriteSettings(
   AOptions: TAbstractIDEOptions);
-var
-  HasChg: Boolean;
 begin
   DbgValConvFrame1.SaveCurrent;
 
-  HasChg :=
-    (DbgProjectLink.UseBackendConverterFromIDE <> chkUseGlobalList.Checked) or
-    (DbgProjectLink.UseBackendConverterFromProject <> chkUseProjList.Checked) or
-    FValConvList.Changed;
-
   DbgProjectLink.StoreBackendConverterConfigInSession := chkStoreInSession.Checked;
   DbgProjectLink.UseBackendConverterFromIDE := chkUseGlobalList.Checked;
   DbgProjectLink.UseBackendConverterFromProject := chkUseProjList.Checked;
@@ -104,7 +97,6 @@ begin
   if FValConvList.Changed then begin
     DbgProjectLink.BackendConverterConfig.Assign(FValConvList);
     DbgProjectLink.BackendConverterConfig.Changed := True;
-
   end;
 end;