Exponenciação em delphi

Function Exponenciacao(Base:double;Potencia:integer):double;
begin
Result := exp( ln(Base) * Potencia );
end;