Wiederholen/Schleifen von Ausgaben

[Marcy]

Guten Abend

ich hab mal ein einfaches Beispiel erstellt um mein Problem darzustellen. Angenomm ich möchte ein Programm schreiben wo ich ein beliebiges Wort eingebe und eine Anzahl und das Programm soll mein Wort sooft wie die angegebene Anzahl ausgeben.

Kurz also eine Wiederholung der Ausgabe. Ich hab das mit diversen Schleifen versucht aber es hat leider nicht funktioniert das Wort wird nur ein einziges Mal ausgegeben:

Code:

procedure THiS.FertigButtonClick(Sender: TObject);
var i, x : integer;
begin
  x:=strtoint(AnzahlEdit.text);
  i:=1;
  repeat  AusgabeLabel.Caption:= WortEdit.text;
          i:=i+1  ;
    until  i=x
    // gibt es zwar aus, aber wiederholt die ausgabe nicht...

  end;
end.

Code:

procedure THiS.FertigButtonClick(Sender: TObject);
var i, x : integer;
begin
  x:=strtoint(AnzahlEdit.text);
  for i:=1 to x do begin  AusgabeLabel.Caption:= WortEdit.text;
  end;
end.

freue mich über eure Hilfe!

Einen schönen Abend