Probleme mit Funktionen

[Demi-God]

Ich möchte einen ganz normalen Taschenrechner programmieren, der die Standartfunktionen wie Addition usw kann, allerdings auch Wurzel, Logarithmus usw.

Nun habe ich versucht Potenzieren in einer Funktion zu schreiben, allerdings bekomme ich immer wieder die selben Fehler

Delphi-Quellcode:

    [...]
    procedure BPotenzClick(Sender: TObject);
  private
    { Private-Deklarationen }
    function Pot(a, b: Integer): Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.BPotenzClick(Sender: TObject);
var
  a, b, c: Integer;
begin
  a := StrToInt(EA.Text);
  b := StrToInt(EB.Text);
  c := Pot(a, b);
  EC.Text := IntToStr(c);
end;

Wenn auf den Button BPotenz geklickt wird, sollen die beiden Zahlen a und b aus den Edit-Feldern EA und EB in der Funktion Pot benutzt werden und danach in c gespeichert werden. Dies soll dann im Edit-Feld EC erscheinen, allerdings funktioniert es nicht, denn es kommen folgende Meldungen (Delphi-Hilfe nützt nichts und per Suche finde ich nur Funktionen, die klappen^^):

[Warnung] UTaschenrechner.pas(76): Rückgabewert der Funktion 'Pot' könnte undefiniert sein
[Fehler] UTaschenrechner.pas(55): Ungenügende Forward- oder External-Deklaration: 'TForm1.Pot'
[Fataler Fehler] Taschenrechner.dpr(5): Verwendete Unit 'UTaschenrechner.pas' kann nicht compiliert werden

Bitte Hilfe, warum funzt das net?