Программа для расчета линейного арифметического выражения!

[Vyacheslav.]

Не "abc" a "abs"... Ошибок стало меньше..

[Vyacheslav.]

Вот так правильно!

procedure TForm1.Button1Click(Sender: TObject);
var s, x,  z, d:real;
y, a: Extended;
begin
x:=-4.5;
y:=0.75*a;
z:=-0.845*SQR(10);
a:= Power(10, -4);
d:=9+SQR(x-y);
  ShowMessage(FloatToStr(a));
s:=power(d,1/3)/(SQR(x)+SQR(y)+2)-exp(abs(x-y))*power(tan(z),3);
Edit1.Text:=floattostr(s);
Edit1.Text := Format('%1.4f', [power(d,1/3)/(SQR(x)+SQR(y)+2)-exp(abs(x-y))*power(tan(z),3)] );
end;

[Vyacheslav.]

Только теперь оно на а жалуется..
[Hint] Unit1.pas(36): Value assigned to 'a' never used
[Warning] Unit1.pas(34): Variable 'a' might not have been initialized

procedure TForm1.Button1Click(Sender: TObject);
var s, x,  z, d:real;
y, a: Extended;
begin
x:=-4.5;
y:=0.75*a;
z:=-0.845*SQR(10);
a:= Power(10, -4);
d:=9+SQR(x-y);
s:=power(d,1/3)/(SQR(x)+SQR(y)+2)-exp(abs(x-y))*power(tan(z),3);
Edit1.Text:=floattostr(s);
Edit1.Text := Format('%1.4f', [power(d,1/3)/(SQR(x)+SQR(y)+2)-exp(abs(x-y))*power(tan(z),3)] );
end;

[Vyacheslav.]

Понял, а использовалась после ее применения, перенес ее выше "у" и все нормально.