anchor.diff:      function    GetText: TfpgString;
       procedure   SetText(const AValue: TfpgString);
       procedure   SetCanDelete(const AValue: boolean);
  +    procedure   btnHelpClicked(Sender: TObject);
     public
       procedure   AfterCreate; override;
       property    Text: TfpgString read GetText write SetText;
  
positive.code: interface
  
  uses
    SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_memo, fpg_button;
  
  type
  
  
negative.code:   WindowTitle := 'Notes';
    Hint := '';
    OnShow := @FormShow;
    HelpType := htContext;
    HelpContext := 7;
  
    Memo1 := TfpgMemo.Create(self);
    with Memo1 do
  