anchor.diff:  
   function THtmlViewer.InsertImage(const Src: ThtString; Stream: TStream): Boolean;
   var
  -  MS: TMemoryStream;
  -begin
  -  begin
  -    if Stream <> nil then
  -    begin
  -      MS := TMemoryStream.Create;
  -      try
  -        MS.LoadFromStream(Stream);
  -        FInsertedImages.AddObject(Src, MS);
  -      except
  -        MS.Free;
  -        raise;
  -      end;
  -    end
  -    else
  -      FInsertedImages.AddObject(Src, nil);
  -    FImagesInserted.Enabled := True;
  -  end;
  -  Result := True;
  -end;
  -
  -//-- BG ---------------------------------------------------------- 10.08.2011 --
  -procedure THtmlViewer.ImagesInsertedTimer(Sender: TObject);
  -var
     OldPos: Integer;
  -  Reformat, ImageReformat: Boolean;
  -begin
  -  if IsProcessing then
  -  begin
  -    if FInsertedImages.Count > 0 then
  -      // try again later:
  -      FImagesInserted.Enabled := True;
  +  ReFormat: Boolean;
  +begin
  +  Result := False;
  +  if vsProcessing in FViewerState then
       Exit;
  -  end;
  -
  -  SetProcessing(True);
     try
  -    FImagesInserted.Enabled := False;
  -    Reformat := FImagesReformat;
  -    FImagesReformat := False;
  -    while FInsertedImages.Count > 0 do
  -    begin
  -      FSectionList.InsertImage(FInsertedImages[0], TStream(FInsertedImages.Objects[0]), ImageReformat);
  -      if ImageReformat then
  -        Reformat := True;
  -      FInsertedImages.Objects[0].Free;
  -      FInsertedImages.Delete(0);
  -    end;
  +    SetProcessing(True);
  +    FSectionList.InsertImage(Src, Stream, Reformat);
       FSectionList.GetBackgroundBitmap; {in case it's the one placed}
       if Reformat then
  -    begin
         if FSectionList.Count > 0 then
         begin
           FSectionList.GetBackgroundBitmap; {load any background bitmap}
  
positive.code:   FPositionHistory.Free;
    FTitleHistory.Free;
    Visited.Free;
    FLinkAttributes.Free;
    FDocument.Free;
    inherited Destroy;
  
negative.code:     MiddleY: Integer;
      NoJump: Boolean;
      sbWidth: Integer;
  // child components
      BorderPanel: TPanel;
      PaintPanel: TPaintPanel;
  