Delphi dicas

Função que calcula a raiz e-nésima de um número

Function TForm1.RaizNes(Base, Expoente: Extended): Extended;

begin

        if Expoente = 0 then begin

                ShowMessage('Divisão por zero');

                exit;

        end;

        Result := Power(Base, 1/Expoente);

end;