Delphi-Quellcode:
type
TForm1 = class(TForm)
...
private
...
FAktuellerSpieler: string; //<-- diese Zeile ergänzen.
...
Dann in ChangePlayer:
FAktuellerSpieler := Spieler1.Text; //oder halt Spieler2.Text, je nachdem, wer dran ist.
Und die Ausgabe des aktiven Spielers:
Label12.Caption := FAktuellerSpieler + ' ist am Zug.';