Составить функцию вычисления y(x)

function TForm1.Y(x: Real): Real;
begin
  if (x<0) and (x=0) then y:=2 else
  if (0<x) and ((x<2) or (x=2)) then y:=x+2 else
  if x>2 then y:=3;
end;
 
 
procedure TForm1.ButtonClick(Sender: TObject);
var a:Real;
begin
a:=y( {здесь нужно указывать параметр Х, но в условии его нету,как быть?} );
Label1.Caption:=FloatToStr(a);
end;

function TForm1.Z(x1,x2,x3,x4: Real): Real;
begin
x1:=strtofloat(memo1.lines.[0]);   //типа,1-й введенный элемент в memo1,но в этой стоке ошибка 
x2:= strtofloat(memo1.lines.[1]);
x3:=  strtofloat(memo1.lines.[2]);
x4:=strtofloat(memo1.lines.[3]);
Z(x1):=y*(x2+1)+4*y(x3-1)+2*x4;
z:=label2.caption(floattostr(z));
end;

{$R *.dfm}
function Y(x: Real): Real;
begin
  if x<=0 then y:=2 else
  if (0<x) and (x<=2) then y:=x+2
  else y:=3;
end;
procedure TForm1.Button1Click(Sender: TObject);
var x1,x2,x3,x4,z:double;
begin
x1:=strtofloat(memo1.lines.Strings[0]);
x2:=strtofloat(memo1.lines.Strings[1]);
x3:=strtofloat(memo1.lines.Strings[2]);
x4:=strtofloat(memo1.lines.Strings[3]);
z:=y(x1+1)+4*y(x1-1)+2*x1;
label1.caption:='z1='+floattostrF(z,fffixed,7,3)+#13#10;
z:=y(x2+1)+4*y(x2-1)+2*x2;
label1.caption:=label1.caption+'z2='+floattostrF(z,fffixed,7,3)+#13#10;
z:=y(x3+1)+4*y(x3-1)+2*x3;
label1.caption:=label1.caption+'z3='+floattostrF(z,fffixed,7,3)+#13#10;
z:=y(x4+1)+4*y(x4-1)+2*x4;
label1.caption:=label1.caption+'z4='+floattostrF(z,fffixed,7,3);
end;