各位高手过来指点啊

unit main;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, DBCtrls, Mask, Grids, DBGrids, Menus,
  WinSkinData;type
  TfrMain = class(TForm)
    MainMenu1: TMainMenu;
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBComboBox1: TDBComboBox;
    DateTimePicker1: TDateTimePicker;
    SkinData1: TSkinData;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    procedure FormCreate(Sender: TObject);
  private
    procedure openTable;
    { Private declarations }
  public
    { Public declarations }
  end;var
  frMain: TfrMain;implementation{$R *.dfm}
 uses  data,pass,public1;
procedure TfrMain.FormCreate(Sender: TObject);
begin
   frData.ADOConnection1.ConnectionString:=public1.link;
   frData.ADOConnection1.LoginPrompt:=false;
   application.CreateForm(Tfrpass,frpass);
   frPass.ShowModal;
   //frpass:=Tfrpass.Create(self);
   StatusBar1.Panels[7].Text:=DateToStr(date);
   openTable;
end;procedure Tfrmain.openTable;
begin
   DBGrid1.DataSource:=frData.DataSource1;
   frData.DataSource1.DataSet:=frData.ADOTable2;
   frData.DataSource1.Enabled:=True;
   frData.ADOTable2.Close;
   frData.ADOTable2.Connection:=frData.ADOConnection1;
   frData.ADOTable2.Close;
   frData.ADOTable2.TableName:='account';
   frData.ADOTable2.Active:=True;
end;
end.以上是主菜单的代码;
unit Pass;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TfrPass = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    StaticText1: TStaticText;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  frPass: TfrPass;implementation{$R *.dfm}
uses data;
procedure TfrPass.Button1Click(Sender: TObject);
begin
  frData.ADOTable1.Connection:=frdata.ADOConnection1;
  frData.ADOTable1.Close;
  frData.ADOTable1.TableName:='pass';
  frData.ADOTable1.Open;  if Trim(edit1.Text)=Trim(frdata.ADOTable1.FieldByName('password').AsString)  then
    begin      application.Terminate;
     end
  else
    begin
       MessageDlg('密码错误!请与管理员联系!',mtInformation,[mbYes],0);
      exit;
    end;
 // frData.ADOTable1.Close;end;end.
以上是登陆菜单的代码
本人想先显示登陆窗口,等验证后才显示主窗口,但当用application.CreateForm(Tfrpass,frpass);
   frPass.ShowModal;时运行后就不能显示主窗口,好像是停了下来,但当用frpass:=Tfrpass.Create(self);时,就直接进入主窗口,登陆窗口就不显示了,在此前本已设好程序先显示主窗口,请各位指点