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 := RightEdge(YT) - W;
    R.Add(Result);
  end;
  
  {----------------TIndentManager.Reset}
  
negative.code: var
    I, CL, CR, LX, RX, XL, XR, YY, MaxX: Integer;
  begin
    Y := Max(Y, RTopMin);
    Result := RightEdge(Y) - W;
    if Result < LeftEdge(Y) + SpW then
    begin
  