Получить HInstance DLL имея под рукой только форму из нее

[it-webwork]

Доброе время суток всем!

Есть приложение, в которое подгружается несколько сотен DLL.
Каждая DLL содержит в себе дочернею MDI форму. Необходимо каким то образом пометить какая форма относится к какой DLL. Я нашел варианты как это реализовать в самой DLL, но мне нужно сделать это из главной формы приложения, чтобы не компилить заново все DLL.

Например сделать бы вот так:

procedure TfrmMain.btnShowModule(Sender: TObject);
var
  I: Integer;
  TheFileName: array [0..MAX_PATH] of char;
begin
  inherited;
  for I := 0 to MDIChildCount - 1 do
    if MDIChildren[I].Active then
    begin
      FillChar(TheFileName, sizeof(TheFileName), #0);
      // Вот только HInstance нужен именно DLL
      GetModuleFileName(HInstance, TheFileName, sizeof(TheFileName));     
      MDIChildren[I].Caption := TheFileName;
    end;
end;

Сломал уже себе всю голову Получается что кроме Handle самой формы у меня нет нечего. Возможно ли имея в своем распоряжение только форму созданную из DLL получить имя этой DLL ???

[3D Hunter]

вместо hinstance вставить хэндл загруженной библиотеки. хотя врядли ты его получишь из твоего мди окна. все что у тебя есть- адрес метода вызова мдишки