anchor.diff:    Result.YB := YB;
     Result.X := LeftEdge(YT) + W;
     L.Add(Result);
  +  LTopMin := YT;
   end;
   
   //-- BG ---------------------------------------------------------- 05.02.2011 --
  
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
  