anchor.diff:    WindowTitle := 'Notes';
     Hint := '';
     OnShow := @FormShow;
  +  HelpType := htContext;
  +  HelpContext := 7;
   
     Memo1 := TfpgMemo.Create(self);
     with Memo1 do
  
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
  
  