Hangman Problem

[Namenloser]

Hallo ChristianR,

Willkommen in der DP

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
ratewort := 'ja';
Label1.Caption := ratewort;

for i:= 1 to length (ratewort) do
    Label2.Caption:= Label2.caption + '_ ';

end;

Du löschst hier aus Label2.Caption nicht die alten Zeichen, bevor du die neuen hinten anhängst.

Übrigens würde ich dir empfehlen, in deinem Code mal aufzuräumen:
1. Variablen und Komponenten aussagekräftige Namen geben (Label2 ist nicht aussagekräftig, besser wäre z.B. labelAnzeige)
2. Da sind einige Deklarationen, die gar nicht benutzt werden.
3. Mache deinen Code standardkonform: Deine Unit hat das Präfix T, das normalerweise für Klassendeklarationen benutzt wird (wie z.B. in TForm). Außerdem hast du eine globale Variable namens Result, die erstens anscheinend nicht genutzt wird und zweitens anders benannt werden sollte, da der Rückgabewert einer Funktion schon Result heißt.
4. Rücke deinen Code ordentlich ein

Wenn du diese Punkte beachtest, erleichterst du dir und auch anderen später die Fehlersuche.