Probleme mit Funktionen

[arbu man]

Delphi-Quellcode:

function TForm1.Pot(a, b: Integer): Integer;
var
  i: Integer;
begin
  For i := 1 to b do
  begin
    Result := a*a;
  end;
end;

Edit:Alternativ kannst du auch die funktion power nehmen