Здравствуйте, Satana666!

Смотрите приложение:
[code lang=pascal h=400]uses vcl;
//$VCLDESIGN+
var
Form1: Form;
TextLabel1: TextLabel;
TextLabel2: TextLabel;
TextLabel3: TextLabel;
TextLabel4: TextLabel;
Edit1: Edit;
Edit2: Edit;
Edit3: Edit;
Button1: Button;
//$VCLDESIGN-
procedure CalcForm;
var
t,x,y,z:real;
begin
Button1.visible:=false;
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
z:=StrToFloat(Edit3.Text);
TextLabel4.Caption:='T:= '+FloatToStr((2*cos(x-pi/6)*(1+z*z/(3-z*z/5)))/(0.5+sin(y)*sin(y)));
end;
procedure InitControls;
begin
Form1:= Form.Create(0,0,200,181);
Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Enter value','');
TextLabel1:= TextLabel.Create(Form1,10,15,150,30);
TextLabel1.InitControl(True,True,alNone,crDefault,clBtnFace,'X:=','');
TextLabel2:= TextLabel.Create(Form1,10,45,150,30);
TextLabel2.InitControl(True,True,alNone,crDefault,clBtnFace,'Y:=','');
TextLabel3:= TextLabel.Create(Form1,10,75,150,30);
TextLabel3.InitControl(True,True,alNone,crDefault,clBtnFace,'Z:=','');
TextLabel4:= TextLabel.Create(Form1,10,105,150,30);
TextLabel4.InitControl(True,True,alNone,crDefault,clBtnFace,'T:=','');
Edit1:= Edit.Create(Form1,30,10,150,30);
Edit1.InitControl(True,True,alNone,crDefault,clWindow,'','');
Edit2:= Edit.Create(Form1,30,40,150,30);
Edit2.InitControl(True,True,alNone,crDefault,clWindow,'','');
Edit3:= Edit.Create(Form1,30,70,150,30);
Edit3.InitControl(True,True,alNone,crDefault,clWindow,'','');
Button1:= Button.Create(Form1,30,100,150,30);
Button1.InitControl(True,True,alNone,crDefault,0,'Calc?','');
Button1.OnClick:=CalcForm;
Form1.Position:= poScreenCenter;
Form1.Show;
end;
begin
InitControls;
end.[/code]

Получается так:

Но это не совпадает с:

Нужно чтобы в ответе получилось t=0.564849

Удачи!