anchor.diff:  var
     I, CL, CR, LX, RX, XL, XR, YY, MinX: Integer;
   begin
  +  Y := Max(Y, LTopMin);
     Result := LeftEdge(Y);
     if Result + W + SpW > RightEdge(Y) then
     begin
  
positive.code:   Result.YB := YB;
    Result.X := LeftEdge(YT) + W;
    L.Add(Result);
  end;
  
  //-- BG ---------------------------------------------------------- 05.02.2011 --
  
negative.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)
      LTopMin: Integer;
      RTopMin: Integer;
    public
      constructor Create;
      destructor Destroy; override;
  