Vier gewinnt

[Luckie]

Delphi-Quellcode:

// Spieler umschalten
  if bPlayer1 then
  begin
    bPlayer1:= False;
  end
  else
  begin
    bPlayer1:= True;
  end;
end;

Umständlicher geht es nicht oder?
Wie wäre es mit:
bPlayer1 := not bPlayer1;