anchor.diff:      procedure HTMLTimerTimer(Sender: TObject);
       procedure InitLoad;
       procedure Layout;
  -    procedure Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
  +    procedure ScrollHorz(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
       procedure ScrollTo(Y: Integer);
  +    procedure ScrollVert(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
       procedure SetActiveColor(Value: TColor);
       procedure SetBase(Value: string);
       procedure SetBorderStyle(Value: THTMLBorderStyle);
  
positive.code:   VScrollBar.Position := Y;
    FSectionList.SetYOffset(Y);
    Invalidate;
  end;
  
  procedure THtmlViewer.Layout;
  
negative.code:     FrameOwner: TObject;
      HScrollBar: TScrollBar;
      Visited: TStringList; {visited URLs}
      VScrollBar: TScrollBar;
  
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
  