请教各位，关于设计登陆界面的问题

好！
老师让做一个管理信息系统 要求进入系统的时候有一个登陆界面
我现在已近设计了一个
不过想请问一下 为什么运行的时候 为什么登陆界面出不来
应该怎么修改阿 
我现在只写了登陆界面的程序
万分感激登陆界面的程序代码
unit LoginForm;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TFrmLogin = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    btOK: TButton;
    btCancel: TButton;
    procedure btOKClick(Sender: TObject);
    procedure btCancelClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose:Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  FrmLogin: TFrmLogin;
  Flag:Boolean;implementation
uses DataM,MainForm;{$R *.dfm}procedure TFrmLogin.btOKClick(Sender: TObject);
begin
    try
       with Data do
       begin
       ADOQLogin.Close;
       ADOQLogin.SQL.Clear;
       ADOQLogin.SQL.Add('select * from Users where Users="'+Edit1.Text+'"');
       ADOConnectMeal.Connected:=True;
       ADOQLogin.Open;
       end
    except
       begin
       MessageDlg('connect to Database Error!',mtError,[mbok],0);
       close;
       end
    end;    if Data.ADOQLogin.RecordCount=1 then
       if Data.ADOQLogin['PWD']=edit2.Text then
          begin
          Flag:=true;
          end
       else
          begin
          Flag:=False;
          MessageDlg('密码不对,请重新输入!',mtError,[mbok],0);
          end
    else
       begin
       Flag:=False;
       MessageDlg('用户名不对,请重新输入',mtError,[mbok],0);
       end;
    close;
end;procedure TFrmLogin.btCancelClick(Sender: TObject);
begin
     Flag:=false;
     close;
end;
procedure TFrmLogin.FormCloseQuery(Sender: TObject; var CanClose:Boolean);
begin
     if not Flag then
      begin
      Data.ADOQLogin.Close;
      Data.ADOConnectMeal.Connected:=False;
      end
end;procedure TFrmLogin.FormCreate(Sender: TObject);
begin
    Flag:=False;
end;
主程序
program Meal;uses
  Forms,
  MainForm in 'MainForm.pas' {FrmMain},
  DataM in 'DataM.pas' {Data: TDataModule},
  LoginForm in 'LoginForm.pas' {FrmLogin};{$R *.res}begin
   Application.Initialize;
   Application.CreateForm(TFrmMain, FrmMain);
   Application.CreateForm(TFrmLogin, FrmLogin);
   Application.CreateForm(TData, Data);   Application.Run;
end.