奇怪的问题?

Question

我用delphi6编写的程序,单步执行时没有问题,但连续执行有时候就会出现问题.
 
  Application.Initialize;
  Application.CreateForm(TDataModule2, DataModule2);  //连接数据库
  form2:=Tform2.Create(nil);  
  form2.ShowModal;//提示输入密码
                 //连续执行时,输入密码确认后,有时出现死机.
  if form2.mypass then
   begin      
    form1:=tform1.Create(nil);   //密码正确,出现主窗口
    form1.ShowModal;
   end; 
  Application.Run;   在delphi下连续运行有50%的可能出现上述问题,单步执行没问题,运行可执行文件也没有出现过问题.
那位大虾帮忙看一下?谢谢!!

Answer 1

form1:=tform1.Create(nil); 
改为
Application.CreateForm(TForm1,Form1);

Answer 2

form2:=tform2.Create(Application); 改掉  
form1:=tform1.Create(Application); 

Answer 3

你的form1是主窗体
所以;form1:=tform1.Create(nil);   //密码正确,出现主窗口
    form1.ShowModal;
改为:Application.CreateForm(TForm1,Form1);