再度求原因。为什么调用DLL然后关闭， 主程序会自动置后

再次求原因。为什么调用DLL然后关闭， 主程序会自动置后。
DLL点关闭的时候，主程序就自动置后了，不知为什么。代码如下，
这个是普通窗体调用DLL。
procedure TForm1.Button1Click(Sender: TObject);

type
  TGetForm = function (H: THandle) : Integer; cdecl;
var
  DllForm : TGetForm;
  DllHandle : THandle;
  nn : integer;
begin
  DllHandle := LoadLibrary(PChar('DebtMoney.dll'));

  try
    if DllHandle <> 0 then
    begin
      DllForm := GetProcAddress(DllHandle, 'EDebtMoney');
      nn := DllForm(Application.Handle) ;
      form1.Caption  := inttostr(nn);
    end;
  finally
    FreeLibrary(DllHandle);
  end;
end;

这个是无边框窗体的DLL：

//DLL入口
Function EDebtMoney(H: THandle):integer;
begin
Application.Handle := H;            //当我把这句去掉的时候，窗体就不会自动置后了，
with TForm1.Create(Application) do try

KeyPreview :=True;
ShowModal;
Result := MySelect ;
finally
Free; { 调用结束时销毁窗口 }
end;
end;



Application.Handle := H;            //当我把这句去掉的时候，窗体就不会自动置后了，

也就是说，不传递Handle 就不会出现这问题。但是我需要传递Handle ，请有时间的老师看下，到底是什么原因，有没办法解决 谢谢
[解决办法]
//试试把句柄赋回来

procedure TForm1.Button1Click(Sender: TObject);

type
  TGetForm = function (H: THandle) : Integer; cdecl;
var
  DllForm : TGetForm;
  DllHandle, exeHandle : THandle;
  nn : integer;
begin
  DllHandle := LoadLibrary(PChar('DebtMoney.dll'));
  exeHandle := Application.Handle;
  try
    if DllHandle <> 0 then
    begin
      DllForm := GetProcAddress(DllHandle, 'EDebtMoney');
      nn := DllForm(exeHandle) ;
      form1.Caption  := inttostr(nn);
    end;
  finally
    FreeLibrary(DllHandle);
    Application.Handle := exeHandle;
  end;
end;