DragDrop von TMemo auf TRichEdit

[KesseK]

Danke bitsetter, klappt wunderbar

Nun möchte ich aber, das der Text der TMemo an der Stelle landet, an der ich mit dem Mauszeiger bin. Es müssen also Zeilen hinzugefügt und der Inhalt übertragen werden. Mit
(Sender as TRichEdit) := (Source as TMemo).Text; wird ja immer der Text der bereits im RichEdit ist überschrieben. Mit Lines.add füge ich Zeilen hinzu, aber wie kann ich das mit dem Mauszeiger handhaben, so dass der Text genau an der Stelle eingefügt wird wo ich los lasse?

Ein paar Stichworte reichen.

Vielen Dank und Grüße

ps: falls ich für die Frage einen neuen Thread öffnen soll, dann bitte bescheid geben.