anchor.diff:      function    TranslateEnvironmentVar(AFilenames: TfpgString): TfpgString;
       // Given a "filename" which may include a path, find it in various paths and extensions
       function    FindHelpFile(AFileName: TfpgString ): TfpgString;
  -
     public
       constructor Create(AOwner: TComponent); override;
       destructor  Destroy; override;
  
positive.code:   Topic: TTopic;
  Begin
    ProfileEvent('DisplayTopic >>>>');
    if tvContents.Selection = nil then
    begin
      ShowMessage('You must select a topic first by clicking it.');
      Exit;  //==>
    end
    else
      Topic := TTopic(tvContents.Selection.Data);
    ProfileEvent('Got Topic from Treeview');
  
    Memo1.Lines.Clear;
    ImageIndices := TList.Create;
  
negative.code:   begin
      Name := 'PageControl1';
      SetPosition(0, 0, 260, 328);
      ActivePageIndex := 1;
      TabOrder := 0;
      Align := alLeft;
      OnChange  := @PageControl1Change;
    end;
  
    tsContents := TfpgTabSheet.Create(PageControl1);
  