Einfaches Potenzieren

[haziii]

Hallo,

ich habe ein (mehr oder weniger) kleines Problem, dass hauptsächlich durch die mir fremde Syntax von Delphi zustande kommt.
Ich kann .NET Visual Basic und C# programmieren, beides bestens, habe jetzt aber ein Problem mit einer Schleifen-Verschachtelung.
Vielleicht könnt ihr mir Lösungsvorschläge anbieten, wenn ihr den Code seht. Dieser sollte selbsterklärend sein!

Code:

procedure TForm1.Button1Click(Sender: TObject);

var base, exp, res, i, f : real;

begin

     base := strtofloat(edit1.text);
     exp := strtofloat(edit2.text);
     i := 0;
     f := 0;

     while f <> 1 do
     begin
          if exp = 0 then
             res := 1
          else
              if exp = 1 then
                 res := base
              else
                  repeat
                        res := base*base;
                        i := i+1;
                  until i = exp;
     end;

     label1.caption := floattostr(res);

end;

Vielen Dank für eure Hilfe!

Mit freundlichen Grüßen,

CorsiQa.

Edit: Vielleicht solltet ihr wissen, dass ich keine Fehlermeldung erhalte, der Code nur einfach nicht ausgeführt wird und mittlerweile das Programm abstürzt. (Out of Memory?)
Als die Verschachtelung noch etwas "kleiner" wat, hat es immerhin funktioniert, ^0 und ^1 auszugeben.