anchor.diff:          DoLogic;
           Position := OldPos;
         end;
  +    end;
       Invalidate;
     finally
       SetProcessing(False);
  -    Result := True;
  -  end;
  -end;
  +  end;
  +end;
  +
   
   function THtmlViewer.GetBase: ThtString;
   begin
  
positive.code: end;
  
  destructor THtmlViewer.Destroy;
  begin
  {$ifndef NoMetaFile}
    AbortPrint;
  {$endif}
    Exclude(FViewerState, vsMiddleScrollOn);
    if vsLocalBitmapList in FViewerState then
    begin
  
negative.code: 
  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;
      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;
      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}
  