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

[Anton94.by]

Разработать проект вычисления функции одной переменной. Вычисление функции оформить в виде отдельной пользовательской функции. Для организации правильной работы пользователя реализовать сценарий работы с использованием свойств visible и enabled компонент, размещенных на форме. Для управления работой приложением использовать компоненту КНОПКА (button).

Функция для программы вложенна в документе doc.

Если можете, то помогите.
Заранее Спасибо.

[Sciv]

О как - прям таки проект?!
Ваш проект за 10 минут делается.

function TForm1.Func(x: real): real;
begin
  Func:=12;
  If x<0 then func:=(14*x+5)/(SQR(X)+1)
  else if x>0 then func:=(Sqr(X)*x+1)/(4*x+2);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Button1.Enabled:=Edit1.Text<>'';
  Label1.Visible:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:='РЕЗУЛЬТАТ Y: '+FloatToStr(func(StrToFloat(Edit1.Text)));
  Label1.Visible:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Enabled:=false;
  Label1.Visible:=false;
end;

На будущее: такие вопросы решаются либо с уже готовым (Вашим или Вами где-то срисованным) кодом, либо за деньги и через фриланс.