Как перетаскивать (Drag and Drop) выделенный текст между компонентами Memo?

Code:

type

TMyMemo = class(TMemo)

private

   FLastSelStart  : Integer;

   FLastSelLength : Integer;

   procedure WMLButtonDown(var Message: TWMLButtonDown);

     message WM_LBUTTONDOWN;

published

   property LastSelStart : Integer read FLastSelStart

     write FLastSelStart;

   property LastSelLength : Integer read FLastSelLength

     write FLastSelLength;

end;

Добавьте обработчик WMLButtonDown:

procedure TMyMemo.WMLButtonDown(var Message: TWMLButtonDown);

var

Ch : Integer;

begin

if SelLength > 0 then begin

   Ch := LoWord(Perform(EM_CHARFROMPOS,0,

                        MakeLParam(Message.XPos,Message.YPos)));

   LastSelStart := SelStart;

   LastSelLength := SelLength;

   if (Ch >= SelStart) and (Ch <= SelStart+SelLength-1) then

     BeginDrag(True)

   else

     inherited;

end

else

   inherited;

end;