anchor.diff:  //
   end;
   
  +procedure TMainForm.btnGoClicked(Sender: TObject);
  +begin
  +  if tvContents.Selection <> nil then
  +    DisplayTopic;
  +end;
  +
  +procedure TMainForm.tvContentsChange(Sender: TObject);
  +begin
  +  DisplayTopic;
  +end;
  +
   procedure TMainForm.MainFormCloseQuery(Sender: TObject; var CanClose: boolean);
   begin
     CloseFile;
  
positive.code:   { TODO -oGraeme : Implement me }
  end;
  
  constructor TMainForm.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    OnShow  := @MainFormShow;
    Files := TList.Create;
  end;
  
  destructor TMainForm.Destroy;
  
negative.code:     procedure   miHelpAboutFPGui(Sender: TObject);
      procedure   miDebugHeader(Sender: TObject);
      procedure   btnShowIndex(Sender: TObject);
      procedure   btnGoClicked(Sender: TObject);
      procedure   tvContentsChange(Sender: TObject);
      procedure   MainFormCloseQuery(Sender: TObject; var CanClose: boolean);
      procedure   FileOpen;
      function    OpenFile(const AFileNames: string): boolean;
  