Dll

Возникла проблемка есть DLL в ней функция создающая MDICildren форму

procedure ShowMDIChild(MainApp : TApplication);
var
Child : TMDIChild;
begin
if not Assigned(DllApp) then begin
DllApp := Application;
Application := MainApp;
end;
Child := TMDIChild.Create(Application.MainForm);
Child.Show;
end;

procedure MyDLLProc(Reason: Integer);
begin
if Reason = DLL_PROCESS_DETACH then
{ DLL is выгружается. Восстанавливаем значение указателя Application}
if Assigned(DllApp) then
Application := DllApp;
end;

в таком виде длл работает отлично и нареканий нет но мне нужно чтоб в место TApplication в функцию передавался Handle (HWND) формы в которую нужно добавить MDIChildren форму..
может кто подскажет как изменить программу чтоб она работала