anchor.diff:      procedure   ShowParamHelp;
       function    FindTopicForLink( Link: THelpLink ): TTopic;
       function    FindTopicByResourceID( ID: word ): TTopic;
  +    function    FindTopicByName(const AName: string): TTopic;
  +
     public
       constructor Create(AOwner: TComponent); override;
       destructor  Destroy; override;
  
positive.code: const
    cLongName   = 'fpGUI Documentation Viewer';
    cCreatedBy  = 'Created by Graeme Geldenhuys';
    cVersion    = 'Version 1.0 (alpha)';
  
  {@VFD_NEWFORM_IMPL}
  
  
negative.code:   Result := nil;
  end;
  
  function TMainForm.FindTopicByName(const AName: string): TTopic;
  var
    FileIndex: longint;
    HelpFile: THelpFile;
  begin
    Result := nil;
    for FileIndex := 0 to CurrentOpenFiles.Count - 1 do
    begin
      HelpFile := THelpFile(CurrentOpenFiles[ FileIndex ]);
      Result := HelpFile.FindTopicByLocalName(AName);
      if Result <> nil then
        // found
        exit; //==>
    end;
    // not found.
    Result := nil;
  end;
  
  
  end.
  