anchor.diff:    I: Integer;
     BottomMargin: Integer;
     CD, BCD: ThtConvData;
  -  H, MH: Integer;
   begin
     if (OwnerCell <> Document) and (MargArrayO[piHeight] = IntNull) and (MargArray[piMinHeight] = 0) then
     begin
  
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:         ValueSy:
          begin
            Meter.Position := StrToIntDef( Name, 0 );
            //PositionSet := true;
          end;
        end;
  
  