Galgenmännchen

[Tomislav]

Delphi-Quellcode:

begin
  Woerterliste := TStringList.Create;
 try 
  Woerterliste.LoadFromFile('Woerter.txt');
  Wort := Woerterliste[Random(Woerterliste.Count{ + 1 - 1})];
 finally
  Woerterliste.Free;
  Wort[1] := 'A';
  Wort[2] := 'B';
  Wort[3] := 'C';
  Wort[4] := 'D';
  Wort[5] := 'E';
  Wort[6] := 'F';
  Wort[7] := 'G';
  Wort[8] := 'H';
  Wort[9] := 'I';
  Wort[10] := 'J';
  Wort[11] := 'K';
  Wort[12] := 'L';
  GBWort.Visible := true;
end;

so jetzt hab ich doch für jedes Zeichen aus dem Wort eine Variable