TJointLayers = class(TPersistent)
               private
                 ...(removed for brevity)
               protected
                 procedure Changed;
                 procedure AssignTo(Dest: TPersistent); override;
               public
                 constructor Create(AOwner: TComponent);
                 destructor  Destroy; override;
                 property OnChange: TNotifyEvent read FOnChange write FOnChange;
                 procedure Reset;
               published
                 property L01xControlledBy: integer index 1 read GetControlledLayerX write SetControlledLayerX;
                 property L01yControlledBy: integer index 1 read GetControlledLayerY write SetControlledLayerY;
                 property L02xControlledBy: integer index 2 read GetControlledLayerX write SetControlledLayerX;
                 property L02yControlledBy: integer index 2 read GetControlledLayerY write SetControlledLayerY;
{$IFDEF PAIDVERS}
                 property L03xControlledBy: integer index 3 read GetControlledLayerX write SetControlledLayerX;
                 property L03yControlledBy: integer index 3 read GetControlledLayerY write SetControlledLayerY;
                   ...
                   ...(removed for brevity)
                   ...
                 property L16xControlledBy: integer index 16 read GetControlledLayerX write SetControlledLayerX;
                 property L16yControlledBy: integer index 16 read GetControlledLayerY write SetControlledLayerY;
{$ENDIF}
               end;