Событие Drag & Drop

С формой и вкладкой системные происходят странные вещи. Событие приходит, но файлы не падают. Видимо так задумано, чтобы дальше мы с вами сами принимали решение, что делать с файлами, брошенными в не совсем понятное место.

Тут два варианта.
Либо все автоматизировать, если заранее понятно, что происходит. Тогда метод Files.Create, я думаю.
Либо отдать все на откуп пользователю, и поднимать диалог TDMSAddFileDlg, открыв его в папке, откуда перетащен файл.

Попробовал сделать реализаций. Проблемы конечно есть, но все не так уж и критично.
В контексте экранной формы событие Files_DragAndDropped  не имеет ссылки на объект, т.е. Object is nothing
Единственное решение которое я пока что нашел - сохранение ссылки на создаваемый объект в словаре. Данный подход в одной из веток форума сильно ругают, но если честно - я так и не понял почему.
Проблема номер 2 - необходимо обновить экранную форму после добавления файла. Форму зацепить можно также только через словарь.
Соответственно первая часть кода - сохранение ссылки на объект и форму. Я выбрал событие Form_BeforeShow так как у него есть ссылки на оба элемента

Sub Form_BeforeShow(Form, Obj)
  ' Определяем что для текущей формы есть объект
  If Not Obj Is Nothing Then
    ' Сохраняем ссылку на объект
    If Not ThisApplication.Dictionary.Exists ("ActiveObject") Then _
       ThisApplication.Dictionary.Add "ActiveObject", Obj
    Set ThisApplication.Dictionary.Item("ActiveObject") = Obj
    ' Сохраняем ссылку на форму
    If Not ThisApplication.Dictionary.Exists ("ActiveForm") Then _
       ThisApplication.Dictionary.Add "ActiveForm", Form
    Set ThisApplication.Dictionary.Item("ActiveForm") = Form
  End If
End Sub

Осталось только переписать событие для создания перетаскиваемых файлов.

Sub Files_DragAndDropped(FilesPathArray, Object, Cancel)
  If Object Is Nothing Then
    Cancel = True
    If ThisApplication.Dictionary.Exists ("ActiveObject") Then
      Set o = ThisApplication.Dictionary.Item("ActiveObject")
      ' Добавляем файлы к объекту
      For Each sPath In FilesPathArray
        o.Files.Create "FILE_ANY", sPath
      Next
      ' Обновляем форму
      If ThisApplication.Dictionary.Exists ("ActiveForm") Then
        Set f = ThisApplication.Dictionary.Item("ActiveForm")
        f.Refresh
      End If
    End If
  End If
End Sub

Я не стал усложнять код определяя по расширению тип добавляемого файла, а использовал тип файла "Все файлы". В принципе код определяющий тип написать несложно.
Решение возможно имеет определённые недостатки, готов выслушать если кто назовет.

Спасибо Edhunter! Вроде получилось, кроме обновления формы - в моем случае это важно, т.к. на ту форму что добавляю данные для заполнения карточки... Щас еще потестирую на важные моменты, но думаю на первое время сойдет.

Мне кажется это ошибка. Занес в базу.