1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var potenzeingabe, potenzrechnung, ergebnis, wert: double;
begin
  potenzeingabe := strtofloat (potedt.text);
  wert := strtofloat (edtwert.text);
  for potenzrechnung := 1 to potenzeingabe do
    begin
      ergebnis := wert * potenzrechnung;
    end;
      label1.caption := floattostr (ergebnis);
 end;					

1:
2:
3:
4:
5:
6:
7:
8:

Uses Math;

Function Potenz(a,b:Integer):Real;
Var i:Integer;
Begin
  Result:=IntPower(a,b);
  For i:=0 to 2 do ShowMessage('Ich bin eine For-Schleife');
End;