это в dll (форма MDIChild)

var DllApp : TApplication;
procedure ShowMDIChild(MainApp : TApplication); stdcall;
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
if Assigned(DllApp) then Application := DllApp; end;

в проекте использующем dll (MDIForm)

function ShowMDIForm(MainApp : TApplication); stdcall;
external dllforms.dll';
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMDIForm(Application);
end;

дочерняя форма не закрывается обычным способом, а минимизируется
Принудительно тоже не закрывается ( на destroy Free)
Вопрос: может чего неправильно, подскажите пожалуйста?

Thanks eNose!
Application.Handle := OldApp; помогло