Разработать программу вычисления значений заданной кусочно-непрерывной функции для произвольных значений исходных данных

procedure TForm1.Button1Click(Sender: TObject);
var
    y,x,alpha:extended;
 
begin
  alpha:=StrToFloat(Edit1.Text);
 if alpha<=0 then
Edit1.Text:='Ошибка'
else begin
x:=sin(alpha)*(sin(alpha)/cos(alpha));
Edit2.Text:=FloatToStr(x);                              (тут компилятор пишет not found gamma)
If (x<0) then y:=ln(x+gamma);                         (а тут syntax erro)
if (0<=x) and (x<=1) then y:=1/(ln(x+alpha);
if (x>0) then y:=2-ln(x+alpha);
end;

uses Math;
.........................
procedure TForm1.Button1Click(Sender: TObject);
const a=4.345;
var x,z,y:extended;
begin
x:=StrToFloat(Edit1.Text);
x:=sin(a)*tan(a);
z:=x+a;
if z<=0 then Label1.Caption:='Значение Y не определено'
else
 begin
  if x<0 then y:=ln(z)
  else if x<=1 then y:=1/(ln(z)
  else y:=2-ln(z);
  Label1.Caption:='Y='+FormatFloat('0.000',y);
 end;
 
end;

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
    y,x,alpha:extended;
 
begin
  x:=StrToFloat(Edit1.Text);
 if x+alpha<=0 then
Edit1.Text:='Ошибка'
else begin
 
If (x<0) then y:=ln(x+alpha)
else if (0<=x) and (x<=1) then y:=1/(ln(x+alpha)
else then y:=2-ln(x+alpha);
Edit2.Text:=FloatToStr(y);
end;