if not Assigned(Form1) then application.createform(Tform1,form1); 使用form1完毕后，除了在onclose事件中free掉外，最好加一句：form1 := nil 这样在使用assigned判断时就不会出问题了 同
