Galgenmännchen

[Tomislav]

Delphi-Quellcode:

procedure TForm1.btnWortwahlClick(Sender: TObject);
begin
  TStringList.LoadFromFile(Woerter.txt);
  random();
  AString := 'XYZ';
  AString[0] = X;
  AString[1] = Y;
  AString[2] = Z;
end;

end.