var X: Word;
begin
   X := AComponent.DesignInfo;
   if X < 5000 then X := X + 10000 else X := X - 10000;
   AComponent.DesignInfo := MakeLong(X, 10);

procedure TicNonVisualComponentEditorDlg.FormShow(Sender: TObject);
var
  LComponent: TComponent;
  LComponentIndex: Integer;
  Idx: Integer;
begin
  Color := clWhite;
  pnConfigComponents.Align := alClient;
  pnGroupComponents.Align := alClient;

  for Idx := 0 to Collection.Count - 1 do
    Collection.Items[Idx].OnGroupNameChange := GroupNameChane;

  tvConfig.Items.GetFirstNode.Selected := True; // а если элементов нет ?
  tvConfigClick(nil);

  GroupNameChane(nil);
end;

      item
        Component = ActionList1
        GroupName = 'Без группы'
        OriginalPosition.X = 344
        OriginalPosition.Y = 80
      end