下面的是在程序启动前显示form2， Application.Initialize; {程序初始化} Form2 := TForm2.Create(Application); {建立徽标Form} Form2.Show; {显示徽标Form} Form2.Update; {重画徽标Form，确保其中的图片被显示出来} Application.CreateForm(TForm1, Form1); {建立主Form} Form2.Hide; {隐藏徽标Form，使主Form显示出来} Form2.Free; {释放徽标Form占用的资源} Application.Run; {程序运行} 如何在一个查询运行中，也显示form2呢（并非多线程）？

uses unit2    Form2 := TForm2.Create(Application); {建立徽标Form}
try
  Form2.Show; {显示徽标Form}
  Application.ProcessMessages;
  查詢的動作
finally
  Form2.Free;
end;

因为查询需要好几分钟， 转换界面后，界面变白， 是不是一定要多线程才行？ 请写也源码好吗？