[Improviz]

В маленькой программе-тесте написал следующую функцию:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
fname:string;
begin
fname:=Paramstr(1);
if fname:=' '
then begin
ShowMessage('В командной строке запуска программы'+ #13 +' надо указать имя файла текста');
Application.Terminate;
end;
AssignFile(f,fname);
Try reset(f);
Except
on EInOutError do
begin
ShowMessage('Ошибка обращения к файлу текста:'+fname);
Application.Terminate;
end;
end;
readln(f,buf);
Form1.Caption:=buf;
for i:=1 to 8 do
begin
readln(f,buf);
mes[i]:=buf;
readln(f,buf);
level[i]:=StrToInt(buf);
end;
right:=0;
nq:=0;
NextQw;
end;

и вылезает такая ошибка
[Error] Unit1.pas(99): Statement expected but 'PROCEDURE' found

Помогите кто чем может...

[Aristarh Dark]

Ты если указываешь ошибку, так хотя бы номера первой и последней строки в коде указал.
Но скорее всего перед

procedure TForm1.FormCreate(Sender: TObject);

нет точки-с-запятой.

[Improviz]

точка с запятой есть перед процедурой...
ошибка в строке

procedure TForm1.FormCreate(Sender: TObject);

[Zigfreed1]

значит нет end; перед процедурой...

[:S.p.a.m.]

пересчитай в предыдущей процедуре колличество Begin и End. Скорее всего и вправду не хватает End'а

[Improviz]

спасибо за помощь! там действительно end'ов не хватало...

после исправления этой ошибки при запуске программы вылазит следующее

Project xxxx raised exception class yyyyy with message 'zzzzzz'.

Process stopped. Use Step or Run to continue.

что это значит и что можно сделать?
помогите плиз...