anchor.diff:      TabOrder := 1;
       Text := '';
       FontDesc := '#Edit1';
  +    OnKeyPress :=@edSearchTextKeyPress;
     end;
   
     Label2 := TfpgLabel.Create(tsSearch);
  
positive.code:   DisplayTopic(nil);
  end;
  
  procedure TMainForm.MainFormCloseQuery(Sender: TObject; var CanClose: boolean);
  begin
  writeln('DEBUG:  TMainForm.MainFormCloseQuery >>>>>');
  
negative.code:     miFile: TfpgPopupMenu;
      miSettings: TfpgPopupMenu;
      miBookmarks: TfpgPopupMenu;
      miHelp: TfpgPopupMenu;
      miDebug: TfpgPopupMenu;
      miOpenRecentMenu: TfpgPopupMenu;
      btnIndex: TfpgButton;
      btnGo: TfpgButton;
  