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:   HTMLTimer.OnTimer := HTMLTimerTimer;
    FLinkAttributes := ThtStringList.Create;
  
  {$ifdef LCL}
    // BG, 24.10.2010: there is no initial WMSize message, thus size child components now:
    DoScrollBars;
  
negative.code:         DoLogic;
          Position := OldPos;
        end;
      end;
      Invalidate;
    finally
      SetProcessing(False);
    end;
  end;
  
  
  function THtmlViewer.GetBase: ThtString;
  begin
  