vclskin在dll里的子窗体里的问题(100分)

在主程序里放一个　SkinData1，在主程序里调用　ＤＬＬ　里的　ＭＤＩ窗体，现在的问题是，能够正常显示，但是在主程序退出的时候报内存错误
unit Unit111;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,WinSkinData,winskindlg,winskinform;
type
TForm1 = class(TForm)
Button1: TButton;
SkinData1: TSkinData;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

TShowFunc = procedure(App:TApplication);stdcall;
TSkinDll = procedure(ahandle: HWnd;adata: Pointer);stdcall;
var
Form1: TForm1;
showfm,hidefm:TshowFunc;
SetApp:Tskindll;
lib:Thandle;
implementation
{$R *.dfm}
procedure LoadDLL;
begin
Lib := LoadLibrary('Project2.dll');
if lib<>0 then
begin
@Showfm := GetProcAddress(Lib,'ShowDLLForm');
@setApp := GetProcAddress(Lib,'SetApplicationHandle');
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if lib=0 then
begin
loaddll;
SetApp(Application.Handle,winskindlg.skinmanager);
end;
if @showfm<>nil then
Showfm(Application);
end;

end.
　
这个是主程序测试的代码，代码没有错误，SetApplicationHandle　是ＤＬＬ里提供的一个　接口函数
procedure SetApplicationHandle(Handle: HWnd;adata: Pointer);
begin
Application.Handle := Handle;
Winskindata.SkinDll(adata);
end;

天啊，
我一直以为，只有我有这问题
原来你也有啊?????
而且你的程序结构，甚至命名也惊人的类似

这个是别人提供的一个　ＤＥＭＯ而已，我只是发了ＤＥＭＯ，不是用在程序里的，这个ＤＥＭＯ　在ＤＬＬ　里的　ＭＤＩ窗体用的时候退出主程序会出现错误