anchor.diff:    WindowTitle := cTitle + ' - No file';
     tvContents.Selection := nil;
     tvContents.RootNode.Clear;
  +  tvContents.Invalidate;
     Memo1.Lines.Clear;
   
     // First save notes. It's important we do this first
  
positive.code:     while TopicIndex < HelpFile.TopicCount do
      begin
        Topic := HelpFile.Topics[ TopicIndex ];
        if Topic.ShowInContents then
        begin
          if Topic.ContentsLevel = 1 then
  
negative.code:     ShowImages := True;
      TabOrder := 0;
      Align := alClient;
      ScrollWheelDelta := 30;
  //    OnChange  := @tvContentsChange;
    end;
  
    tvIndex := TfpgTreeView.Create(tsIndex);
  