在delphi中，做了一个主窗体，做了一个登录窗体，怎样实现在打开主窗体的时候自动弹出登录窗体？

DPR文件中代码
program Project2;

uses
Forms,
Dialogs,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Login},
Unit3 in 'Unit3.pas' {Init_Machine},
MyFunction in 'MyFunction.pas';

{$R *.res}

var
i :integer;
mRun : boolean;
mRet :integer;
begin
Application.Initialize;
Application.Title := 'GPRS,GSM,GPS终端服务软件';
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TLogin, Login);
mRun := False;
for i:=0 to 2 do
begin
//设置用户输入的焦点
if i = 0 then Login.ActiveControl := Login.Edit1
else Login.ActiveControl := Login.Edit2;

mRet := Login.ShowModal;
//用户取消
if mRet = 2 then break; //mrCancel
//成功登录
if mRet = 1 then //mrOk
begin
mRun := True;