anchor.diff:      procedure optset_UpdaterDelay(aReader: TReader);
     protected
       fDockable: boolean;
  +    fModal: boolean;
       fID: string;
       // a descendant overrides to implementi a periodic update.
       procedure UpdateByLoop; virtual;
  
positive.code:     procedure sesoptBeforeSave; virtual;
      procedure sesoptDeclareProperties(aFiler: TFiler); virtual;
      procedure sesoptAfterLoad; virtual;
    published
      property updaterByLoopInterval: Integer read fLoopInter write setLoopInt;
      property updaterByDelayDuration: Integer read fDelayDur write setDelayDur;
  
negative.code:     property updating: boolean read fUpdating;
      // true by default, allow a widget to be docked.
      property isDockable: boolean read fDockable;
      // not if isDockable, otherwise a the widget is shown as modal form.
      property isModal: boolean read getIfModal;
    end;
  
    (**
  