[ecfisa]

Hola szunny.

Esta función te devuelve cualquier potencia.
No es un código complicado, sólo tenés dos funciones matemáticas involucradas: Ln (logarítmo) y Exp (exponencial),
los dos en base e (naturales).

Debería ejecutarse correctamente en delphi 3.

Código Delphi [-]
function Potencia(Base, Exponente: Double): Extended;
begin
  Result:= Exp( Ln(Base) * Exponente );
end;

Ejemplo de llamadas:

Código Delphi [-]
var
  Pot: Extended;
begin
  // Ej. 1
  Pot:= Potencia(5 ,3);
  // Ej. 2
  ShowMessage( 'Tres al cubo: '+FloatToStr( Potencia(3, 3) ) );
  ...
end;

Saludos.