Код со степенью

[kotopezzz]

Всем доброго утра....прописал код со степенью., прога запускает но считает не для всех значений ks и вообще такое впечталение, что не верно...кто знает правилен ли этот код или можно как то по другому описать действие с переменной в степени ? заранее спасибо..

Xst:=(1-(KS-1)/KS*Sqr(Zc));
Yst:=(ks/(1-ks));
pcp := ps*(exp(Yst*ln(Xst)));
edit24.Text:=floattostr(pcp);

[RUSt88]

возвести х в степень у

function pow(x, y: double): double;
begin
  pow := exp(ln(x) * y);
end;