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