anchor.diff:      LoadNotes( HelpFile );
     end;
   
  +  ProgressBar.Position := 55;
  +  SetStatus( 'Display contents... ' );
     LoadContents;
  +
  +  if tvContents.RootNode.Count = 1 then
  +  begin
  +    ProfileEvent( '  Expand first node' );
  +    // Contents has only one top level node... expand it
  +    tvContents.RootNode.FirstSubNode.Expand;
  +  end;
  +
  +  ProgressBar.Position:= 57;
  +  SetStatus( 'Display first topic... ' );
  +  ProfileEvent( '  Display first topic' );
     tvContents.Selection := tvContents.RootNode.FirstSubNode;
  +  tvContents.Invalidate;
  +  btnGoClicked(nil);
  +
  +  { TODO -oGraeme : Load Index here }
  +  lbSearchResults.Items.Clear;
  +
  +  ProgressBar.Position := 100;
  +  SetStatus( 'Done' );
   end;
   
   procedure TMainForm.CloseFile;
  
positive.code:     Text := 'Search results:';
    end;
  
    {@VFD_BODY_END: MainForm}
    {%endregion}
  
  
negative.code:   begin
      Name := 'PageControl1';
      SetPosition(0, 0, 260, 328);
      ActivePageIndex := 4;
      TabOrder := 0;
      Align := alLeft;
    end;
  