..... fAnchor:integer;....
property AnchorsFlag:integer read fAnchor write fAnchor;
......
flags := THIWin(C).AnchorsFlag;
......
      if _prop_akLeft then   fAnchor := fAnchor or 1;
      if _prop_akTop  then   fAnchor := fAnchor or 2;
      if _prop_akRight then  fAnchor := fAnchor or 4;
      if _prop_akBottom then fAnchor := fAnchor or 8;

      Control.MarginLeft   := _prop_MarginLeft;
      Control.MarginTop    := _prop_MarginTop;
      Control.MarginRight  := _prop_MarginRight;
      Control.MarginBottom := _prop_MarginBottom;
      Control.Margin       := _prop_Margin;

      Control.MaxHeight :=  _prop_MaxHeight;
      Control.MaxWidth  :=  _prop_MaxWidth;
      Control.MinHeight :=  _prop_MinHeight;
      Control.MinWidth  :=  _prop_MinWidth;

      THIWin(Control).fMaxHeight :=  _prop_MaxHeight;
      THIWin(Control).fMaxWidth  :=  _prop_MaxWidth;
      THIWin(Control).fMinHeight :=  _prop_MinHeight;
      THIWin(Control).fMinWidth  :=  _prop_MinWidth;
.....
      THIWin(Control).AnchorsFlag := fAnchor;