Перенос текста из Memo в Memo (Drag&Drop)

Memo2->Text=Memo1->Text;

// Это добавляем прямо перед описанием класса формы в h-файле проекта
namespace TMemo_DragDrop
{
    class TMemo : public Stdctrls::TMemo
    {
        typedef Stdctrls::TMemo Inherited;
 
        int FLastSelStart;
        int FLastSelLength;
 
    __published:
        __property int LastSelStart = {read = FLastSelStart, write = FLastSelStart};
        __property int LastSelLength = {read = FLastSelLength, write = FLastSelLength};
 
    private:
        BEGIN_MESSAGE_MAP
            VCL_MESSAGE_HANDLER(WM_LBUTTONDOWN, TWMLButtonDown, WMLBUTTONDOWN_Proc)
        END_MESSAGE_MAP(Inherited)
 
        void __fastcall WMLBUTTONDOWN_Proc(TWMLButtonDown &message)
        {
            if (SelLength > 0)
            {
                int i = LOWORD(Perform(EM_CHARFROMPOS, 0,
                    MAKELPARAM(message.XPos, message.YPos)));
                LastSelStart = SelStart;
                LastSelLength = SelLength;
                if (i >= SelStart && i <= SelStart + SelLength - 1) BeginDrag(true);
                else Inherited::Dispatch(&message);
            }
            else Inherited::Dispatch(&message);
        }
 
    public:
        __fastcall virtual TMemo(System::Classes::TComponent* AOwner)
            : Stdctrls::TMemo(AOwner)
        {
        }
    };
}
#define TMemo TMemo_DragDrop::TMemo
 
// Дальше твоя форма, без изменений ...
class TForm1 : public TForm
// ...

void __fastcall TForm1::MyMemoDragOver(TObject *Sender, TObject *Source, int X, int Y,
          TDragState State, bool &Accept)
{
    Accept = Source->ClassNameIs("TMemo");
}

void __fastcall TForm1::MyMemoDragDrop(TObject *Sender, TObject *Source,
    int X, int Y)
 
{
    TMemo *Dst = dynamic_cast<TMemo*>(Sender);
    TMemo *Src = dynamic_cast<TMemo*>(Source);
    int i = LOWORD(Dst->Perform(EM_CHARFROMPOS, 0, MAKELPARAM(X, Y)));
 
    if (Src == Dst && i >= Src->LastSelStart && i <= Src->LastSelStart + Src->LastSelLength - 1)
        return;
 
    Dst->Text = Dst->Text.SubString(1, i) + Src->SelText +
        Dst->Text.SubString(i + 1, Dst->Text.Length() - i);
    String s = Src->Text;
    s = s.Delete(Src->LastSelStart + 1, Src->LastSelLength);
    Src->Text = s;
}