dll问题，调用dll中的窗体

[zxtyhy]

dll中的接口函数

function Init(hWndParent: HWND; gid: Int64; pszUserPath: LPCTSTR): HWND; stdcall;
begin
CoInitialize(nil);
FrmPCDll := TFrmPCDll.CreateParented(hWndParent);
FrmPCDll.Visible := True;
Result := FrmPCDll.Handle;
end;


调用时
begin
Init(Handle, 0, 'aaa');
end;

在关闭主程序时总是出错，提示Runtime error 216 at 004A661D

应该如何处理？

[zxtyhy]

DLL完整代码：
library Project1;

uses
Windows,
ActiveX,
Forms,
UnitPCDll in 'UnitPCDll.pas' {FrmPCDll},
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

function Init(hWndParent: HWND; gid: Int64; pszUserPath: LPCTSTR): HWND; stdcall;
begin
CoInitialize(nil);

Application.Handle := hWndParent;
FrmPCDll := TFrmPCDll.Create(Application);
FrmPCDll.ParentWindow := hWndParent;
FrmPCDll.Visible := True;
Result := FrmPCDll.Handle;
end;

procedure Quit; stdcall;
begin
if Assigned(FrmPCDll) then
begin
FrmPCDll.Free;
FrmPCDll := nil;
end;

CoUninitialize;
end;


exports
Init name 'Init',
Quit name 'Quit';

begin

end.

[zuoansuifeng]

Init name 'Init',
Quit name 'Quit';

输出的函数为什么要这么写
直接写
Init
Quit

[Louis_WH]

不明白，就是要调用DLL中的窗口吧？写个显示窗口的函数再exports出来不就完了？干嘛还写
初始和结束函数？