anchor.diff:          ValueSy:
           begin
             Meter.Position := StrToIntDef( Name, 0 );
  -          PositionSet := true;
  +          //PositionSet := true;
           end;
         end;
   
  
positive.code: var
    PntPanel: TWinControl; //TPaintPanel;
    I: Integer;
    PositionSet: Boolean;
  begin
    inherited Create(Parent, Position, L, Prop);
    PositionSet := false;
    VertAlign := ABottom; {default}
    Floating := ANone;
    PntPanel := Document.PPanel;
  
negative.code:   I: Integer;
    BottomMargin: Integer;
    CD, BCD: ThtConvData;
  begin
    if (OwnerCell <> Document) and (MargArrayO[piHeight] = IntNull) and (MargArray[piMinHeight] = 0) then
    begin
  