anchor.diff:    btnDelete.Enabled := FCanDelete;
   end;
   
  +procedure TNoteForm.btnHelpClicked(Sender: TObject);
  +begin
  +  InvokeHelp;
  +end;
  +
   procedure TNoteForm.AfterCreate;
   begin
     {%region 'Auto-generated GUI code' -fold}
  
positive.code:     function    GetText: TfpgString;
      procedure   SetText(const AValue: TfpgString);
      procedure   SetCanDelete(const AValue: boolean);
    public
      procedure   AfterCreate; override;
      property    Text: TfpgString read GetText write SetText;
  
negative.code: interface
  
  uses
    SysUtils,
    Classes,
    fpg_base,
    fpg_main,
    fpg_form,
    fpg_memo,
    fpg_button;
  
  type
  
  