anchor.diff:      procedure HTMLMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); virtual;
       procedure HTMLMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); virtual;
       procedure HTMLMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); virtual;
  -    procedure HTMLMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint);
  +    procedure HTMLMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
       procedure HTMLPaint(ACanvas: TCanvas; const ARect: TRect);
       procedure InitLoad; virtual;
       procedure LoadDocument(Document: TBuffer; const DocName: ThtString; DocType: THtmlFileType);
  
positive.code:   PaintPanel.OnMouseDown := HTMLMouseDown;
    PaintPanel.OnMouseMove := HTMLMouseMove;
    PaintPanel.OnMouseUp := HTMLMouseUp;
  
    VScrollBar := TScrollBar.Create(Self);
    VScrollBar.Kind := sbVertical;
  
negative.code: {----------------THtmlViewer.HTMLMouseWheel}
  
  procedure THtmlViewer.HTMLMouseWheel(Sender: TObject; Shift: TShiftState;
    WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
  var
    Lines: Integer;
  begin
  