登陆窗口连接数据库验证通过后,是如何弹出mdi主窗口和关闭登陆窗口的

登陆窗口连接数据库验证通过后,是怎么弹出mdi主窗口和关闭登陆窗口的?
ulogin单元引用umain单元

procedure   TfrmLogin.Image3Click(Sender:   TObject);
var
    E:string;
    rts:TRigthIDList;
begin
    if   trim(uid.Text   )= ' '   then
    begin
        application.MessageBox( '请输入用户名 ', '系统提示 ');
        uid.SetFocus;
        exit;
    end;
    if   trim(pwd.Text   )= ' '   then
    begin
        application.MessageBox( '密码不可为空或空窜 ', '系统提示 ');
        pwd.SetFocus;
        exit;
    end;
    if   GetRightID(trim(uid.Text),pwd.Text,rts,E)   =false   then
    begin
        application.MessageBox(pchar(E), '系统提示 ');
        exit;
    end;
    frmMain.Show;////////////////////////////////////////////////引用,然后show是会报错的
end;

使用
var   frm:TfrmMain;
begin
    frm:=TfrmMain.create(self);
    frm.show;
end;
同样报错,真不懂delphi!!!!!!!!!

mdi主窗口弹出来的时候会同时创建其下一个mdi子窗口的(如果是这一点有问题的话,那么回我的人是比较有经验的了)

------解决方案--------------------
frm:=TfrmMain.Create(application);
frm.ShowModal;
------解决方案--------------------
frmMain窗口类型是什么？
如果是MDI的，应该是不能这样打开的