Помогите написать программы в Delphi для возведения числа в степень.

function Pow(x, y: real): real; var   PowTmp: real; begin   if (x < 0) then      PowTmp := (-1) * Exp(y * Ln(Abs(x)))    else if (x > 0) then      PowTmp := Exp(y * Ln(Abs(x)))    else PowTmp := 0;    if not (odd(round(y))) then PowTmp := Abs(PowTmp);    if (y = 0) then PowTmp := 1;    Pow := PowTmp;  end; Вот функция, приклейте, куда нужно:)