请帮忙看看这Delphi代码是哪里出错了!!!!

代码如下:

program gzglxt;

uses  Forms,  main in 'main.pas' {Main_Form}, 

 login in 'login.pas' {Login_Form}, 

 usergl in 'usergl.pas' {usergl_Form}, 

password in 'password.pas' {password_Form}, 

 yggl in 'yggl.pas' {yggl_Form}, 

ygxx in 'ygxx.pas' {ygxx_Form},  setzw in 'setzw.pas' {setzw_Form}, 

 setzc in 'setzc.pas' {setzc_Form}, 

setother in 'setother.pas' {setother_Form}, 

addgzb in 'addgzb.pas' {addgzb_Form}, 

gzgl in 'gzgl.pas' {gzgl_Form}, 

modigz in 'modigz.pas' {modigz_Form}, 

gztj in 'gztj.pas' {gztj_form},

{$R *.res}

begin  Application.Initialize; 

Application.CreateForm(Tlogin_Form,login_Form); 

 login_Form.ShowModal; 

//判断是否通过系统验证 

if login_Form.loginok then 

begin  

  login_Form.Free; 

   Application.CreateForm(TMainForm,MainForm); 

   Application.Run; 

 end

  else 

   Application.Terminate;

 end.    

     [Error] gzglxt.dpr(20): Identifier expected but 'BEGIN' found

[Error] gzglxt.dpr(21): Undeclared identifier: 'Application'

[Error] gzglxt.dpr(21): Missing operator or semicolon

[Error] gzglxt.dpr(22): Missing operator or semicolon

[Error] gzglxt.dpr(22): Undeclared identifier: 'Tlogin_Form'

[Error] gzglxt.dpr(22): Undeclared identifier: 'login_Form'

[Error] gzglxt.dpr(23): Missing operator or semicolon

[Error] gzglxt.dpr(25): 'THEN' expected but identifier 'loginok' found

[Error] gzglxt.dpr(27): Missing operator or semicolon

[Error] gzglxt.dpr(28): Missing operator or semicolon 

[Error] gzglxt.dpr(28): Undeclared identifier: 'TMainForm'

[Error] gzglxt.dpr(29): Missing operator or semicolon

[Error] gzglxt.dpr(32): Missing operator or semicolon