Drag&Drop TRichViewEdit

[Shouldercannon]

Кто-нибудь пробовал работать с Drag&Drop у TRichViewEdit?
Хочу перетащить любой файл в RichViewEdit, а в ответ чтобы в ShowMessage вывелся путь к файлу.

Сам нашёл решение, под носом было

procedure TForm1.RichViewEdit1DropFile(Sender: TCustomRichViewEdit;
  const FileName: string; var DoDefault: Boolean);
begin
  ShowMessage(FileName);
end;