anchor.diff:      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;
  
positive.code: 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
  
negative.code:         DoLogic;
          Position := OldPos;
        end;
      Invalidate;
    finally
      SetProcessing(False);
      Result := True;
    end;
  end;
  
  function THtmlViewer.GetBase: ThtString;
  begin
  