关闭非模态窗口

if Form=nil then Application.CreatForm(Tform,form); form.show OnClos事件 Ation:=caFree; Form:=nil;