1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TF.P13Click(Sender: TObject); 
// statt P13.Click bräuchte ich es allgemein: Pxy (alle Felder) 
begin
  if move <=9 then // falls das Spielfeld schon voll ist
  begin
    if current= true then // aktuellen Spieler abfragen
      begin
        p13.caption:='X'; // X in gewähltes Feld 
        current:=false;   // der andere Spieler ist am Zug
      end
    else
      begin
        p13.caption:='O'; // O in gewähltes Feld 
        current:=true; // der andere Spieler ist am Zug
      end;
    p13.enabled:=false; // Feld abschalten
    move:=move+1; //  Zugzahl erhöhen (max 9)
  end;  
end;