Калькулятор Опции

[Наська]

Помогите! Ума не приложу как сделать икс в степени игрик?

[Наська]

Чего-то не понимаю...где косяк?

procedure TForm1.Button32Click(Sender: TObject); {кнопка результат} 
begin
  Label8.Caption := IntToStr(SuperFactorial);
end;

Function Factorial(y: integer): Longint;
var
  Edit1: TEdit;
begin
  y := StrToInt(Edit1.Text);
  if y = 0 then factorial := 1
  else factorial := y*Factorial((y-1));
end;

Function SuperFactorial(y: integer): LongInt;
var
  Edit4: TEdit;
begin
  y := StrToInt(Edit4.Text);
  if y = 0 then SuperFactorial := 1
  else SuperFactorial := Factorial(y)*SuperFactorial((y-1));
end;

М

Теги, Наська, теги!! Lapp

[Malice]

Label8.Caption := IntToStr(SuperFactorial);

А где параметр у функции SuperFactorial ? Да и сами функции надо выше процедуры 1Button32Click написать.