// Hier werden die Grundzüge des Spiels niedergelegt, Abwechselndes
// Setzen, Fehlermeldung etc.

procedure TForm1.XoderO(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var senderImage : TImage;
    PX : Integer;
    PY : Integer;
    TMP : string;
begin
    senderImage := ( Sender as TImage );

  tmp := IntToStr( senderImage.Tag );

  if ( length( tmp ) > 1 ) then begin
    pX := StrToInt( copy( tmp, 1, 1 ) );
    pY := StrToInt( copy( tmp, 2, 1 ) );
  end
  else begin
    pX := 0;
    pY := StrToInt( tmp );
  end;

  if ( GameBoard[ pX, pY ] = ftNone ) then
    begin
    // Hier wird X und O abwechselnt gesetzt
    if ( bMovePlayerX ) then
    begin
      senderImage.Picture := ImageX.Picture;
      GameBoard[ pX, pY ] := ftX;
    end
    else
    begin
      senderImage.Picture := ImageO.Picture;
      GameBoard[ pX, pY ] := ftO;
    end;
      bMovePlayerX := not bMovePlayerX;
    end
    else
    // Ist X oder O schon gesetzt erscheint eine Fehlermeldung
    begin
      ShowMessage('Dieser Platz ist belegt bitte anderen Wählen');
    end;