anchor.diff:      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)
  +    LTopMin: Integer;
  +    RTopMin: Integer;
     public
       constructor Create;
       destructor Destroy; override;
  
positive.code:   Result.YB := YB;
    Result.X := LeftEdge(YT) + W;
    L.Add(Result);
  end;
  
  //-- BG ---------------------------------------------------------- 05.02.2011 --
  
negative.code:   Width  := Wd;
    R.Clear;
    L.Clear;
    LTopMin := 0;
    RTopMin := 0;
    CurrentID := nil;
  end;
  
  