anchor.diff:      FontDesc := '#Label1';
       Hint := '';
       ImageName := '';
  +    ModalResult := mrOK;
       TabOrder := 1;
  -    ModalResult := mrOK;
     end;
   
     Memo1 := TfpgMemo.Create(self);
  
positive.code: 
  {@VFD_NEWFORM_IMPL}
  
  procedure TTextForm.AfterCreate;
  begin
    {%region 'Auto-generated GUI code' -fold}
  
negative.code:     {@VFD_HEAD_BEGIN: TextForm}
      btnClose: TfpgButton;
      Memo1: TfpgMemo;
      btnCopy: TfpgButton;
      {@VFD_HEAD_END: TextForm}
      procedure btnCopyClicked(Sender: TObject);
    public
      procedure AfterCreate; override;
    end;
  