Вопрос по Delphi, помогите найти ошибку в участке кода

Question

Statement expected but 'procedure' found - такая ошибка function f(x,a:real):real; begin if x<=0 then f:=sqrt(sqrt(sqr(x-1)))-a; if (0a then f:=(3*sin(2*a*x+3.14)-sin(3*(2*a*x+3.14)))/4; end; procedure TL2_Levchenko.Edit1Enter(Sender: TObject); begin Edit3.Visible:=False; end; procedure TL2_Levchenko.Edit2Enter(Sender: TObject); begin Edit3.Visible:=False; end; procedure TL2_Levchenko.Edit1Exit(Sender: TObject); begin if Edit1.Text<>'' then try StrToFloat(Edit1.Text); except ShowMessage('Введено неверное значение A'); Edit1.SetFocus; end; РУГАЕТСЯ НА ЭТОТ УЧАСТОК ---------------------------- procedure TL2_Levchenko.Edit2Exit(Sender: TObject); begin if Edit2.Text<>'' then try StrToFloat(Edit2.Text); except ShowMessage('Введено неверное значение Х'); Edit2.SetFocus; end; ----------------------------------------------------------------------- procedure TL2_Levchenko.Button1Click(Sender: TObject); begin Edit3.Visible:=True; Edit3.Text:=FloatToStr(f(StrToFloat(Edit1.Text), StrToFloat(Edit2.Text))); end; end.

Ольга Арыспаева · Accepted Answer

StrToFloat(Edit1.Text); - куда ты это преобразуешь? нужна переменная 
 
str:=StrToFloat(Edit1.Text); 
 
хотя нет, ты там проверяешь ввод на кривость 
 
end не хватает и вправду

Михаил Скороходов · Answer

Нету end у процедуры TL2_Levchenko.Edit1Exit 
 
 Try 
 Statement 
 {Statement...} 
 Except 
 Statement 
 {Statement...} 
 End;