anchor.diff:      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;
  
positive.code:     {@VFD_HEAD_BEGIN: TextForm}
      btnClose: TfpgButton;
      Memo1: TfpgMemo;
      {@VFD_HEAD_END: TextForm}
    public
      procedure AfterCreate; override;
    end;
  
negative.code: 
  {@VFD_NEWFORM_IMPL}
  
  procedure TTextForm.btnCopyClicked(Sender: TObject);
  begin
    fpgClipboard.Text := Memo1.Lines.Text;
  end;
  
  procedure TTextForm.AfterCreate;
  begin
    {%region 'Auto-generated GUI code' -fold}
  