DragDrop von TMemo auf TRichEdit

[KesseK]

Ich möchte den Inhalt eines TMemo mittels DragDrop in ein TRichEdit schreiben,
dazu benutze ich diesen Code:

Delphi-Quellcode:

procedure TForm1.InhaltDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Source is TMemo) then
  Richedit1.text := (Source as TMemo).Text;
end;

procedure TForm1.RichEdit1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := true;
end;

Leider passiert überhaupt nichts, er schreibt den Inhalt nicht in das Richedit.
Wenn ich die Zeile zum Überschreiben ins DragOver setze funktionierts. Allerdings
soll man vorher den Mausbutton los lassen und so muss es im DragDrop bleiben.

Vielleicht kann mir jemand helfen.

Grüße