//-----------------------------------------------------------void __fastcall TMainForm::EditCopyClick(TObject *Sender)
{
Memo->CopyToClipboard(); //Llamada a TMemo->CopyToClipboard()
}
//-----------------------------------------------------------