type
  {$IF CompilerVersion >= 16} // Delphi XE2, VER230
  [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
  {$ENDIF}
  TMyComponent = class(TComponent)
  private
    ...
  end;

type
  THackControl = class( TControl )
  private
    property Scale;
  end;

procedure ReflectControl( Control: TControl; Horz, Vert: Boolean );
begin
   if Horz then
      THackControl( Control ).Scale.X := -1
   else
      THackControl( Control ).Scale.X := 1;
   if Vert then
      THackControl( Control ).Scale.Y := -1
   else
      THackControl( Control ).Scale.Y := 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ReflectControl( CheckBox1, True, True );
end;

type
  TMyPanel = class(TPanel)
  protected
    procedure DoAbsoluteChanged; override;
  end;

implementation

{ TMyPanel }

procedure TMyPanel.DoAbsoluteChanged;
begin
   inherited;
   ShowMessage('Компонент был перемещен!');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   with TMyPanel.Create(Self) do
   begin
      Parent := Self;
      Show;
      Position.X := Position.X + 10;
   end;
end;