For-schleife und Loop

[huyennguyen]

Hallo
Ich bin neu in Delphi und möchte euch etwas fragen. Ich brauche wirklich eure Hilfe

In der Aufgabe, ein Wort wird gegeben. Jedes mal wird Button geklickt, werden die Wortteile eingetragen:
1.mal: "w"
2.mal: "wo"
3.mal: "wor"
4.mal: "wort"
5.mal: "w" - und geht weiter

Ich hab geschrieben:

Delphi-Quellcode:

w:=Edit1.text;
st:='';
for k:= 1 to length(w) do
 begin
  st:=st + w[k];
  Edit2.text:=st;
 end;

das geht leider auch nicht

Kann jemand mir helfen? Danke im Voraus!