Выбило ошибку

[ell88]

Вобщем писал для себя базу данных, все работало но не понятн оиз за чего произошла ошибка. ЧТО он хочет от меня.

[Error] GRGbaza.dpr(9): Identifier expected but 'BEGIN' found
[Error] GRGbaza.dpr(11): Statement expected but 'USES' found
[Error] GRGbaza.dpr(12): '.' expected but ',' found
[Error] GRGbaza.dpr(21): '.' expected but 'BEGIN' found
[Error] GRGbaza.dpr(22): Undeclared identifier: 'Application'
[Error] GRGbaza.dpr(22): Missing operator or semicolon
[Error] GRGbaza.dpr(23): Missing operator or semicolon
[Error] GRGbaza.dpr(24): Missing operator or semicolon
[Error] GRGbaza.dpr(24): Undeclared identifier: 'TForm1'
[Error] GRGbaza.dpr(25): Missing operator or semicolon
[Error] GRGbaza.dpr(25): Undeclared identifier: 'TForm2'
[Error] GRGbaza.dpr(26): Missing operator or semicolon
[Error] GRGbaza.dpr(26): Undeclared identifier: 'TForm3'
[Error] GRGbaza.dpr(27): Missing operator or semicolon
[Error] GRGbaza.dpr(27): Undeclared identifier: 'TForm4'
[Error] GRGbaza.dpr(28): Missing operator or semicolon

Пипец какой-то
Заранее спасибо.

код проэкта куда указывает на ошибку

program GRGbaza;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in '..\Unit4.pas' {Form4},
  begin;   

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},


{$R *.res}

begin
  Application.Initialize;
  Application.HelpFile := '';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.Run;
end.

[evg_m]

[Error] GRGbaza.dpr(9): but 'BEGIN' found

Вольный перевод: Нашли begin когда не ждали!

Находим 9 строку смотрим что там.

А там мы видим тот самый begin хотя мы еще не закрыли(;) блок uses
более того предыдущая строчка недвусмысленно намекает(,) что продолжение объявлений следует Identifier expected.

[Sciv]

Короче, вот так надо:

program GRGbaza;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4};


{$R *.res}

begin
  Application.Initialize;
  Application.HelpFile := '';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.Run;
end.