Potenz einer Zahl

[Matze89]

[ function Potenz(Basis, Exponent: Integer): Int64;
begin
if Exponent = 0 then
Exit
else
Result := Basis * Potenz(Basis, Exponent - 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var Basis,Exponent,Ergebnis : Integer;
begin
Basis:= StrToInt(Edit1.Text);
Exponent:= StrToInt(Edit2.Text);
Ergebnis:= IntToStr(Potenz);

end;

end.
]

kann mir aml jem. sagen, was hier falsch ist? ich möchte, das ich eine Zahl eingebeben, und dann will ich die Potenz berechnen.