Mit "Power" eine beliebige Wurzel ziehen

[0nk3lz]

Hey Leute,
ich finde in der SuFu irgendwie nichts...

Ich bin dabei einen Taschenrechner zu "basteln" und will nun eine eine beliebige Wurzel ziehen...

Bei beliebigen Exponenten habe ich das folgendermaßen:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var zahl1, zahl2, ergebnis: real;
begin
  zahl1 := StrToFloat(Edit1.Text);
  zahl2 := StrToFloat(Edit2.Text);

  ergebnis := power(zahl1, zahl2);

  edit3.text := FloatToStr(ergebnis);
end;

Kann man denn mit der "Power" Funktion auch beliebige Wurzeln ziehen?
Wenn ja, wie?

MfG 0nk3lz