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:   with edSearchText do
    begin
      Name := 'edSearchText';
      SetPosition(4, 20, 242, 24);
      Anchors := [anLeft,anRight,anTop];
      TabOrder := 1;
      Text := '';
  
negative.code:     procedure   btnGoClicked(Sender: TObject);
      procedure   tvContentsChange(Sender: TObject);
      procedure   MainFormCloseQuery(Sender: TObject; var CanClose: boolean);
      procedure   PageControl1Change(Sender: TObject; NewActiveSheet: TfpgTabSheet);
      procedure   tvContentsDoubleClick(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
      procedure   lbIndexDoubleClick(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
      procedure   FileOpen;
      function    OpenFile(const AFileNames: string): boolean;
      procedure   CloseFile;
  