Помогите написать программы в 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;Вот функция, приклейте, куда нужно:)