anchor.diff:  var
     T: TListBoxFormControlObj absolute Source;
   begin
  -  inherited;
  +  inherited CreateCopy(Parent,Source);
     FControl := T.FControl;
     EnterItems := T.EnterItems;
     EnterSelected := T.EnterSelected;
  
positive.code: var
    T: TOptionsFormControlObj absolute Source;
  begin
    inherited;
    FOptions := T.FOptions;
    FFont := T.FFont;
    LBSize := T.LBSize;
  
negative.code: var
    T: TButtonFormControlObj absolute Source;
  begin
    inherited CreateCopy(Parent,Source);
    FControl := T.FControl;
    Which := T.Which;
  end;
  