delphi dll窗体调用

[kkxing1987]

procedure ShowDllFormInPanel(Parent: THandle); stdcall;
begin
Application.handle := Parent;
if Form1 = nil then
Form1 := TForm1.Create(Application);
Form1.ParentWindow := Parent; //将容器设置为父窗口
form1.BorderStyle := bsNone;
form1.Align := alClient;

Form1.Show;
end;

这个是dll中窗体显示在主窗体的panle中去的代码，显示是没问题的。但是多次点击显示然后关闭后。第四次出现报错 access violation at address XXXXXXXX in module 应该是没释放的问题。但是不知道哪里没释放。忘高手指点

[秋天之落叶]

谁创立谁释放，form1关闭的时候是不是应该free一下？