anchor.diff:      {@VFD_HEAD_BEGIN: TextForm}
       btnClose: TfpgButton;
       Memo1: TfpgMemo;
  +    btnCopy: TfpgButton;
       {@VFD_HEAD_END: TextForm}
  +    procedure btnCopyClicked(Sender: TObject);
     public
       procedure AfterCreate; override;
     end;
  
positive.code: 
  {@VFD_NEWFORM_IMPL}
  
  procedure TTextForm.AfterCreate;
  begin
    {%region 'Auto-generated GUI code' -fold}
  
negative.code:     TabOrder := 2;
    end;
  
    btnCopy := TfpgButton.Create(self);
    with btnCopy do
    begin
      Name := 'btnCopy';
      SetPosition(4, 268, 128, 24);
      Text := 'Copy to Clipboard';
      FontDesc := '#Label1';
      Hint := '';
      ImageName := '';
      TabOrder := 3;
      OnClick := @btnCopyClicked;
    end;
  
    {@VFD_BODY_END: TextForm}
    {%endregion}
  end;
  