anchor.diff:  end;
   
   destructor THtmlViewer.Destroy;
  -var
  -  I: Integer;
   begin
   {$ifndef NoMetaFile}
     AbortPrint;
   {$endif}
  -  FImagesInserted.Free;
  -  for I := 0 to FInsertedImages.Count - 1 do
  -    FInsertedImages.Objects[I].Free;
  -  FInsertedImages.Free;
  -  HTMLTimer.Free;
     Exclude(FViewerState, vsMiddleScrollOn);
     if vsLocalBitmapList in FViewerState then
     begin
  
positive.code:     procedure HTMLDragDrop(Sender, Source: TObject; X, Y: Integer);
      procedure HTMLDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
      procedure HTMLTimerTimer(Sender: TObject);
      procedure ImagesInsertedTimer(Sender: TObject);
      procedure Layout;
      procedure Parsed(const Title, Base, BaseTarget: ThtString);
      procedure ParseHtml;
  
negative.code:   FSectionList.CopyToClipboardA(Leng + 1);
  
    HTML := DocumentSource;
    StSrc := FindSourcePos(FSectionList.SelB);
    EnSrc := FindSourcePos(FSectionList.SelE);
    if (FDocument <> nil) and ((FDocument.CodePage = CP_UTF16LE) or (FDocument.CodePage = CP_UTF16BE)) then
    begin
      StSrc := StSrc div 2;
      EnSrc := EnSrc div 2;
    end;
    Inc(StSrc);
  
    if EnSrc < 0 then {check to see if end selection is at end of document}
    begin
      EnSrc := Length(HTML);
  