--- lazarus-2.0.6/lazarus/ide/frames/compiler_compilation_options.pas	2019-03-07 00:02:00.000000000 +0100
+++ lazarus-2.0.6--patched/lazarus/ide/frames/compiler_compilation_options.pas	2020-02-08 12:26:26.678811589 +0100
@@ -389,12 +389,10 @@
   Options.CreateMakefileOnBuild := chkCreateMakefile.Checked;
 
   // execute before
   Options.ExecuteBefore.Command := ExecuteBeforeCommandComboBox.Text;
-  with InputHistories.HistoryLists.GetList('BuildExecBefore',true,rltCaseSensitive) do begin
-    Assign(ExecuteBeforeCommandComboBox.Items);
-    Push(Options.ExecuteBefore.Command);
-  end;
+  InputHistories.HistoryLists.GetList('BuildExecBefore',true,rltCaseSensitive).Assign(ExecuteBeforeCommandComboBox.Items);
+  InputHistories.HistoryLists.GetList('BuildExecBefore',true,rltCaseSensitive).Push(Options.ExecuteBefore.Command);
 
   WriteSettingsParsers(Options.ExecuteBefore,ExecBeforeParsersCheckListBox);
 
   if Options.ExecuteBefore is TProjectCompilationToolOptions then
@@ -415,12 +413,11 @@
     TPkgCompilerOptions(Options).SkipCompiler := chkCompilerCompile.Checked;
 
   // execute after
   Options.ExecuteAfter.Command := ExecuteAfterCommandComboBox.Text;
-  with InputHistories.HistoryLists.GetList('BuildExecAfter',true,rltCaseSensitive) do begin
-    Assign(ExecuteAfterCommandComboBox.Items);
-    Push(Options.ExecuteAfter.Command);
-  end;
+  InputHistories.HistoryLists.GetList('BuildExecAfter',true,rltCaseSensitive).Assign(ExecuteAfterCommandComboBox.Items);
+  InputHistories.HistoryLists.GetList('BuildExecAfter',true,rltCaseSensitive).Push(Options.ExecuteAfter.Command);
+  
   WriteSettingsParsers(Options.ExecuteAfter,ExecAfterParsersCheckListBox);
   if Options.ExecuteAfter is TProjectCompilationToolOptions then
     Options.ExecuteAfter.CompileReasons :=
       MakeCompileReasons(chkExecAfterCompile, chkExecAfterBuild, chkExecAfterRun);