anchor.diff:    begin
       if gCommandLineParams.IsParam('h') then
       begin
  -      ShowParamHelp;
  +      ShowCmdLineParamHelp;
         Exit; //==>
       end
       else if gCommandLineParams.IsParam('debuglog') then
  
positive.code:   inc(CurrentHistoryIndex);
  end;
  
  procedure TMainForm.ShowParamHelp;
  const
    le = LineEnding;
  var
  
negative.code: procedure TMainForm.miHelpAboutFPGui(Sender: TObject);
  begin
    TfpgMessageDialog.AboutFPGui;
  end;
  
  procedure TMainForm.miHelpCmdLineParams(Sender: TObject);
  begin
    CloseFile(False);
    ShowCmdLineParamHelp;
  end;
  
  procedure TMainForm.miDebugHeader(Sender: TObject);
  