Cannot creat form. No MDI forms are currently active.该如何解决

Cannot creat form. No MDI forms are currently active.
mdi主窗体设为delphi第一个启动的窗体的话，那在MDI主窗体前，要有
欢迎界面的窗体，用户登陆的窗体,两个窗体怎么办啊？？？？

Delphi(Pascal) code

begin  Application.Initialize;  Application.Title := '一卡通辅助管理系统';  Application.CreateForm(TMain, Main);  Application.CreateForm(TDM1, DM1);  Application.CreateForm(TFrmLogin, FrmLogin);  Application.Run;end.

mdi主窗体前有用户登录窗体和数据库连接DM,如何修改？

[解决办法]
begin
Application.Initialize;
Application.Title := '一卡通辅助管理系统';
Application.CreateForm(TDM1, DM1);
Application.CreateForm(TFrmLogin, FrmLogin);
if ... then //定义个变量在frmLOgin
Application.CreateForm(TMain, Main);
Application.Run;
end.


[解决办法]
begin
Application.Initialize;
Application.Title := '一卡通辅助管理系统';
Application.CreateForm(TDM1, DM1); -------->先建立DM模块，连接数据库
Application.CreateForm(TFrmLogin, FrmLogin); -------->再创建FrmLogin
if FrmLogin.ModalResult = mrOK then --------通过验证再进主窗体
Application.CreateForm(TMain, Main);
Application.Run;
end.

google搜索 delphi+登录窗体，了解一下登录窗体的制作原理，修改一下应该就行。

Ps:上面给的是伪代码，只是说明下解决问题的思路，照着改不行滴~
[解决办法]
[code=Delphi(Pascal)][/code]
Application.Initialize();
Application.CreateForm(TDm, Dm);
SplashForm := TSplashForm.Create(Application.Owner);
SplashForm.Show();
SplashForm.Update();
if DM.ConnectToSqlServer() then
begin
SplashForm.Hide();
SplashForm.Free();
//登录窗体类似splashform创建
Application.CreateForm(TFrmMain, FrmMain);
Application.Run();
end
else
begin
showmessage('数据连接失败');
Application.Terminate();
end;