Возведение в степень [Object Pascal]

[DeoS]

Условие: на языке Object Pascal создать оконное приложение в среде Delphi.

Вот, что я сделал (часть кода):

Код: [Выделить]

var
  Form1: TForm1;
//  fl:boolean;
  a,b:Real;
implementation
{$R *.dfm}

function y(xf:real):real;
begin
  y:=Power(power(a,Cos(xf)),1/5)+power(power(b,Sin(xf)),1/3);
end;

Код: [Выделить]

procedure TForm1.Button1Click(Sender: TObject);
var x,xn,xk,dx,z,p:real;
begin
if  (Length(LabeledEdit1.Text)=0) or(Length(LabeledEdit2.Text)=0) or (Length(labeledEdit3.Text)=0) or (Length(Edt1.Text)=0) or (Length(Edt2.Text)=0)
    then ShowMessage('Заполните все поля')
  else
begin
 xn:=StrToFloat(LabeledEdit1.Text);
 xk:=StrToFloat(LabeledEdit2.Text);
 dx:=StrToFloat(LabeledEdit3.Text);
 x:=xn;
 a:=StrToFloat(Edt1.Text);
 b:=StrToFloat(Edt2.Text);
 While x<=xk+dx do
   begin
     p:=y(x);
             z:=(Power((power((ln(y(X))/ln(3)),3)-(ln(1/y(x))/ln(4))),1/3));
               Memo1.Lines.Add('x='+FormatFloat('0.00',x)+'  z='+FormatFloat('0.0000',z));
            x:=x+dx;
   end;Проблема: для возведения в степень я использую Power, а препод препод требует использовать stepen, но я понятия не имею как через stepen писать. Буду благодарен за помощь!
Маленькое дополнение: проверку в MathCAD'e полностью не могу сделать, вот скрин:

[tig81]

Маленькое дополнение: проверку в MathCAD'e полностью не могу сделать, вот скрин:

Почему после логарифма стоит знак умножения?

[lu]

в маткаде логарифм пишется:

log(число, основание)

[lu]

\( log(y,3)^3 \)

[DeoS]

Спасибо за помощь!
А что насчёт замены Power на stepen в коде, кто-нибуть поможет?

[DeoS]

Результаты в Delphi и проверки в MathCAD'e различаются