Delphi开发的dll中创建了一个窗体退出在进程退出时碰到的问题?

Question

Delphi开发的dll中创建了一个窗体，在另一个delphi程序中调用，创建窗口没有问题，但是在主程序退出时， dll中创建的窗体没有办法退出，造成了主进程窗口关闭，但是进程没有退出，怎么解决这个问题呢？
代码：

procedure TestDll(i:integer; App: TApplication);stdcall;
begin
if TestForm=nil then
begin
TestForm := TTestForm.Create(app);

if not TestForm.Visible then
TestForm.Show;
end;
end;

Answer 1

可能回传一个窗体就行，我用这样的方法做了一个试验，一切正常。
DLL代码如下：
library dll_Form;
uses
Windows,Forms;
{$R *.res}
var
TestForm:TForm;
Function LoadForm:TForm; export; stdcall;
begin
if TestForm=nil then
TestForm := TForm.Create(nil);
TestForm.Show;
Result:=TestForm;
end;
exports
LoadForm;
begin
end.

调用的程序这样：
unit dll_form_test;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
end;
Function LoadForm:TForm; stdcall;external 'dll_Form.dll';
var
Form1: TForm1;
Form2: TForm;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=LoadForm;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Free;
end;
end.