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