diff --git a/components/ideintf/actionseditor.pas b/components/ideintf/actionseditor.pas
index 1feed7679f..fb62dd1382 100644
--- a/components/ideintf/actionseditor.pas
+++ b/components/ideintf/actionseditor.pas
@@ -139,7 +139,7 @@ type
     procedure lstActionNameDblClick(Sender: TObject);
   protected
     procedure OnComponentRenamed(AComponent: TComponent);
-    procedure OnComponentSelection(NewSelection: TPersistentSelectionList);
+    procedure OnComponentSelection(const NewSelection: TPersistentSelectionList);
     procedure OnComponentDelete(APersistent: TPersistent);
     procedure OnRefreshPropertyValues;
     function GetSelectedAction: TContainedAction;
@@ -477,7 +477,8 @@ begin
     lstActionName.Items[i] := AComponent.Name;
 end;
 
-procedure TActionListEditor.OnComponentSelection(NewSelection: TPersistentSelectionList);
+procedure TActionListEditor.OnComponentSelection(
+  const NewSelection: TPersistentSelectionList);
 var
   CurAct: TContainedAction;
   tmpCategory: String;
diff --git a/components/ideintf/fieldseditor.pas b/components/ideintf/fieldseditor.pas
index c97cdf7b5f..bc1766767c 100644
--- a/components/ideintf/fieldseditor.pas
+++ b/components/ideintf/fieldseditor.pas
@@ -81,8 +81,8 @@ type
     procedure SelectionChanged(AOrderChanged: Boolean = false);
     procedure OnComponentRenamed(AComponent: TComponent);
     procedure OnPersistentDeleting(APersistent: TPersistent);
-    procedure OnGetSelection(ASelection: TPersistentSelectionList);
-    procedure OnSetSelection(ASelection: TPersistentSelectionList);
+    procedure OnGetSelection(const ASelection: TPersistentSelectionList);
+    procedure OnSetSelection(const ASelection: TPersistentSelectionList);
     procedure OnPersistentAdded(APersistent: TPersistent; Select: boolean);
   private
     LinkDataset: TDataset;
@@ -450,7 +450,8 @@ begin
     FieldsListBox.Items.Delete(i);
 end;
 
-procedure TDSFieldsEditorFrm.OnGetSelection(ASelection: TPersistentSelectionList);
+procedure TDSFieldsEditorFrm.OnGetSelection(
+  const ASelection: TPersistentSelectionList);
 var i: integer;
 begin
   if Not Assigned(ASelection) then exit;
@@ -460,7 +461,8 @@ begin
       ASelection.Add(TPersistent(FieldsListBox.Items.Objects[i]));
 end;
 
-procedure TDSFieldsEditorFrm.OnSetSelection(ASelection: TPersistentSelectionList);
+procedure TDSFieldsEditorFrm.OnSetSelection(
+  const ASelection: TPersistentSelectionList);
 var i, j: integer;
 begin
   if Assigned(ASelection) then begin
diff --git a/components/ideintf/objectinspector.pp b/components/ideintf/objectinspector.pp
index db6b364f90..e9bb2c7a9a 100644
--- a/components/ideintf/objectinspector.pp
+++ b/components/ideintf/objectinspector.pp
@@ -766,8 +766,8 @@ type
     procedure HookRefreshPropertyValues;
     procedure FillPersistentComboBox;
     procedure SetAvailComboBoxText;
-    procedure HookGetSelection(ASelection: TPersistentSelectionList);
-    procedure HookSetSelection(ASelection: TPersistentSelectionList);
+    procedure HookGetSelection(const ASelection: TPersistentSelectionList);
+    procedure HookSetSelection(const ASelection: TPersistentSelectionList);
     procedure DestroyNoteBook;
     procedure CreateNoteBook;
     procedure ShowNextPage(Delta: integer);
@@ -5258,13 +5258,13 @@ begin
   end;
 end;
 
-procedure TObjectInspectorDlg.HookGetSelection(ASelection: TPersistentSelectionList);
+procedure TObjectInspectorDlg.HookGetSelection(const ASelection: TPersistentSelectionList);
 begin
   if ASelection=nil then exit;
   ASelection.Assign(FSelection);
 end;
 
-procedure TObjectInspectorDlg.HookSetSelection(ASelection: TPersistentSelectionList);
+procedure TObjectInspectorDlg.HookSetSelection(const ASelection: TPersistentSelectionList);
 begin
   Selection := ASelection;
 end;
diff --git a/components/ideintf/propedits.pp b/components/ideintf/propedits.pp
index 2979e05c9e..4a4419f59f 100644
--- a/components/ideintf/propedits.pp
+++ b/components/ideintf/propedits.pp
@@ -1359,8 +1359,10 @@ type
                                       ) of object;
   TPropHookPersistentDel = procedure(APersistent: TPersistent) of object;
   TPropHookDeletePersistent = procedure(var APersistent: TPersistent) of object;
-  TPropHookGetSelection = procedure(ASelection: TPersistentSelectionList) of object;
-  TPropHookSetSelection = procedure(ASelection: TPersistentSelectionList) of object;
+  TPropHookGetSelection = procedure(const ASelection: TPersistentSelectionList
+                                             ) of object;
+  TPropHookSetSelection = procedure(const ASelection: TPersistentSelectionList
+                                             ) of object;
   TPropHookAddDependency = procedure(const AClass: TClass;
                                      const AnUnitName: shortstring) of object;
   // persistent objects
diff --git a/components/sparta/smartformeditor/source/sparta_componentpalette.pas b/components/sparta/smartformeditor/source/sparta_componentpalette.pas
index 24ce62ce8d..5cdb08c0c4 100644
--- a/components/sparta/smartformeditor/source/sparta_componentpalette.pas
+++ b/components/sparta/smartformeditor/source/sparta_componentpalette.pas
@@ -71,7 +71,7 @@ type
     procedure RefreshSearchResult;
     procedure UpdateComponentsList;
 
-    procedure OnDesignSetSelection(ASelection: TPersistentSelectionList);
+    procedure OnDesignSetSelection(const ASelection: TPersistentSelectionList);
   public
     constructor Create(AOwner: TComponent; AParent: TWinControl; AIgnoreRoot: Boolean = False); reintroduce;
     destructor Destroy; override;
@@ -609,7 +609,7 @@ begin
   RefreshSearchResult;
 end;
 
-procedure TComponentsPalette.OnDesignSetSelection(ASelection: TPersistentSelectionList);
+procedure TComponentsPalette.OnDesignSetSelection(const ASelection: TPersistentSelectionList);
 begin
   // to replace original components palette
   if not FIgnoreRoot or (csDestroying in ComponentState) then
diff --git a/components/tachart/editors/tasubcomponentseditor.pas b/components/tachart/editors/tasubcomponentseditor.pas
index dc8a7f584d..0fed9333a3 100644
--- a/components/tachart/editors/tasubcomponentseditor.pas
+++ b/components/tachart/editors/tasubcomponentseditor.pas
@@ -66,10 +66,10 @@ type
     function FindChild(ACandidate: TPersistent; out AIndex: Integer): Boolean;
     procedure MoveSelection(AStart, ADir: Integer);
     procedure OnComponentRenamed(AComponent: TComponent);
-    procedure OnGetSelection(ASelection: TPersistentSelectionList);
+    procedure OnGetSelection(const ASelection: TPersistentSelectionList);
     procedure OnPersistentAdded(APersistent: TPersistent; ASelect: Boolean);
     procedure OnPersistentDeleting(APersistent: TPersistent);
-    procedure OnSetSelection(ASelection: TPersistentSelectionList);
+    procedure OnSetSelection(const ASelection: TPersistentSelectionList);
     procedure RefreshList;
     procedure SelectionChanged(AOrderChanged: Boolean = false);
   protected
@@ -298,7 +298,8 @@ begin
     BuildCaption;
 end;
 
-procedure TComponentListEditorForm.OnGetSelection(ASelection: TPersistentSelectionList);
+procedure TComponentListEditorForm.OnGetSelection(
+  const ASelection: TPersistentSelectionList);
 var
   i: Integer;
 begin
@@ -335,7 +336,8 @@ begin
   end;
 end;
 
-procedure TComponentListEditorForm.OnSetSelection(ASelection: TPersistentSelectionList);
+procedure TComponentListEditorForm.OnSetSelection(
+  const ASelection: TPersistentSelectionList);
 var
   i, j: Integer;
 begin
diff --git a/designer/anchoreditor.pas b/designer/anchoreditor.pas
index a2eeea515f..31a7270fe9 100644
--- a/designer/anchoreditor.pas
+++ b/designer/anchoreditor.pas
@@ -183,7 +183,7 @@ type
     FSideControls: array[TAnchorKind] of TAnchorDesignerSideControls;
     procedure Refresh;
     procedure OnRefreshPropertyValues;
-    procedure OnSetSelection(ASelection: TPersistentSelectionList);
+    procedure OnSetSelection(const ASelection: TPersistentSelectionList);
     function GetSelectedControls: TList;
     function FindSibling(const Sibling: string): TControl;
     procedure FillComboBoxWithSiblings(AComboBox: TComboBox);
@@ -409,7 +409,7 @@ begin
 end;
 
 procedure TAnchorDesigner.FormDestroy(Sender: TObject);
-  var
+var
   i: TAnchorKind;
 begin
   FreeAndNil(Values);
@@ -1167,7 +1167,7 @@ begin
   end;
 end;
 
-procedure TAnchorDesigner.OnSetSelection(ASelection: TPersistentSelectionList);
+procedure TAnchorDesigner.OnSetSelection(const ASelection: TPersistentSelectionList);
 begin
   if FSelection.IsEqual(ASelection) then exit;
   Refresh;
@@ -1175,8 +1175,7 @@ end;
 
 { TAnchorDesignerValues }
 
-function TAnchorDesignerValues.GetSides(Kind: TAnchorKind
-  ): TAnchorDesignerSideValues;
+function TAnchorDesignerValues.GetSides(Kind: TAnchorKind): TAnchorDesignerSideValues;
 begin
   Result:=FSides[Kind];
 end;
diff --git a/designer/menueditorform.pas b/designer/menueditorform.pas
index 95cce26a71..fff9a1a52d 100644
--- a/designer/menueditorform.pas
+++ b/designer/menueditorform.pas
@@ -90,7 +90,7 @@ type
     procedure HidePopupAssignmentsInfo;
     procedure InitializeStatisticVars;
     procedure LoadFixedButtonGlyphs;
-    procedure OnDesignerSetSelection(ASelection: TPersistentSelectionList);
+    procedure OnDesignerSetSelection(const ASelection: TPersistentSelectionList);
     procedure ProcessForPopup(aControl: TControl);
     procedure SetupPopupAssignmentsDisplay;
   public
@@ -279,7 +279,7 @@ begin
   OpenURL(helpPath);
 end;
 
-procedure TMenuDesignerForm.OnDesignerSetSelection(ASelection: TPersistentSelectionList);
+procedure TMenuDesignerForm.OnDesignerSetSelection(const ASelection: TPersistentSelectionList);
 var
   mnu: TMenu;
   mi, tmp: TMenuItem;
diff --git a/designer/taborderdlg.pas b/designer/taborderdlg.pas
index 815b42683d..f21a119a22 100644
--- a/designer/taborderdlg.pas
+++ b/designer/taborderdlg.pas
@@ -72,7 +72,7 @@ type
     procedure PersistentAdded({%H-}APersistent: TPersistent; {%H-}Select: boolean);
     procedure PersistentDeleting({%H-}APersistent: TPersistent);
     procedure DeletePersistent(var {%H-}APersistent: TPersistent);
-    procedure SetSelection(ASelection: TPersistentSelectionList);
+    procedure SetSelection(const ASelection: TPersistentSelectionList);
   end;
 
   { TTabOrderPropEditor }
@@ -438,7 +438,7 @@ begin
   SomethingChanged;
 end;
 
-procedure TTabOrderDialog.SetSelection(ASelection: TPersistentSelectionList);
+procedure TTabOrderDialog.SetSelection(const ASelection: TPersistentSelectionList);
 // Select item also in TreeView when selection in Designer changes.
 
   function FindSelection: TTreeNode;
diff --git a/ide/main.pp b/ide/main.pp
index a207c5125b..d7caa7e597 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -579,7 +579,7 @@ type
     procedure ControlSelectionChanged(Sender: TObject; ForceUpdate: Boolean);
     procedure ControlSelectionPropsChanged(Sender: TObject);
     procedure ControlSelectionFormChanged(Sender: TObject; OldForm, NewForm: TCustomForm);
-    procedure GetDesignerSelection(ASelection: TPersistentSelectionList);
+    procedure GetDesignerSelection(const ASelection: TPersistentSelectionList);
 
     // project inspector event handlers
     function ProjInspectorAddUnitToProject(Sender: TObject;
@@ -9484,7 +9484,7 @@ begin
     MainIDEBar.UpdateIDEComponentPalette(true);
 end;
 
-procedure TMainIDE.GetDesignerSelection(ASelection: TPersistentSelectionList);
+procedure TMainIDE.GetDesignerSelection(const ASelection: TPersistentSelectionList);
 begin
   if TheControlSelection=nil then exit;
   TheControlSelection.GetSelection(ASelection);