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:   Width  := Wd;
    R.Clear;
    L.Clear;
    CurrentID := nil;
  end;
  
  
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
  