关闭窗体出现异常(50分)

if not assigned(frmitem) then
begin
frmItem := tfrmitem.Create(nil);
if frmitem.ShowModal <> mrok then
begin
application.Terminate;
end;
freeandnil(frmitem);
end
else
frmitem.Show;
这是创建窗体的代码
当用鼠标点击右上角关闭窗体时出现下面的错误：
project ofxsangna.exe raised exception class EAcessViolation with message
'Access Violation at adress 00403508 in moudule 'ofxsangna.exe',read of adress
00D74000',process stoped.use step or run to continue.
这是什么原因呢，该如何解决呢，请各位高手帮忙。
谢谢!

ShowModal和Show是两种不同的窗体模式，调用不同释放也不同。

to newsmile::ShowModal和Show这两种不同的窗体模式有什么区别啊。调用时各自应该如何释放阿。

调用了已经释放的资源。

都application.Terminate;了
再freeandnil(frmitem);
肯定错了
把freeandnil(frmitem);去了

if not assigned(frmitem) then
begin
frmItem := tfrmitem.Create(nil);
if frmitem.ShowModal <> mrok then
begin
freeandnil(frmitem);
application.Terminate;
end;
freeandnil(frmitem);
end
else
frmitem.Show;

多人接受答案了。