anchor.diff:    Width  := Wd;
     R.Clear;
     L.Clear;
  +  LTopMin := 0;
  +  RTopMin := 0;
     CurrentID := nil;
   end;
   
  
positive.code:     L: TFreeList;       // list of left side indentations of type IndentRec.
      R: TFreeList;       // list of right side indentations of type IndentRec.
      CurrentID: TObject; // the current block level (a TBlock pointer)
    public
      constructor Create;
      destructor Destroy; override;
  
negative.code:   Result.YB := YB;
    Result.X := RightEdge(YT) - W;
    R.Add(Result);
    RTopMin := YT;
  end;
  
  {----------------TIndentManager.Reset}
  