窗体动态创建的问题，不显示！(100分)

我写了一个数据查询程序，创建以下窗体：
procedure Tfrmmain.atlgqsExecute(Sender: TObject);
begin
if secondload then
exit;
frmqinshi:=Tfrmqinshi.create(self);
try
frmqinshi.Left:=frmgongnengtools.Width;
frmqinshi.top:=frmgongnengtools.top;
currentfrm:=frmqinshi;
frmqinshi.Height:=585;
frmqinshi.Width:=735;
frmqinshi.show;
secondload:=true;
except
showmessage('打开窗口出错！');
end;
end;

程序单运行没有任何问题。
但我写了另一个程序，往同一个数据库中输入数据，使用了存储过程和时钟控件等，当此程序运行时，以上的那个窗口就创建不出来了，点击菜单后，没有show，单步运行时，发现到frmqinshi:=Tfrmqinshi.create(self);就没有动静了，请高手们帮我看看。。。谢！

frmqinshi你这个窗体没有释放干净吧。

改成frmqinshi:=Tfrmqinshi.create(Application);试试。

try
frmqinshi:=Tfrmqinshi.create(self);
frmqinshi.Left:=frmgongnengtools.Width;
frmqinshi.top:=frmgongnengtools.top;
currentfrm:=frmqinshi;
frmqinshi.Height:=585;
frmqinshi.Width:=735;
frmqinshi.show;
secondload:=true;
except
showmessage('打开窗口出错！');
end;

问题找到了，是我打开窗口时执行一个查询语句，此查询语句没有成功，但持续时间较长导致。后修改查询语句，就没有问题了。谢谢诸位参与！