Du hast die Zeile eins zu weit oben eingefügt, das Case muss ja erstmal durch end; abgeschlossenwerden:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.enabled := false;
case LastPlayer of
0: LastPlayer := 1; // noch kein Button gedrückt, also kommt Spieler 1 drann
1: LastPlayer := 2; // Spieler 1 war drann, also muss jetzt Spieler 2 rann
2: LastPlayer := 1; // Spieler 2 war drann, also muss jetzt Spieler 1 rann
end;
TicTacToe[1,1] := LastPlayer;
end;