Drag & drop markierte text im memo

[michdan]

Hallo!

Ich möchte per Drag & Drop den markierten Text aus einem Memo in ein anderes Memo verschieben.

Ich markiere den Text mit der linken Maustaste und dann wenn ich mit der linken Maustaste das zweite mal auf denn markierten Text drücke soll dass Drag & drop aktiviert werden.

Delphi-Quellcode:

procedure TForm1.mousedown1(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

if (Button = mbLeft) and (memo1.SelText <> '') then
    memo1.BeginDrag(false);
end;

Nur sofort wenn ich mit der linken maustaste auf denn markierten Text drücke wird die markierung wieder gelöscht.


Wie kann ich dieses machen?