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

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.