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