tic tac toe.... mal wieder:) versteh aufgabestellung nicht ganz

[Butch87]

Und es fehlt immernoch das Begin und End

Delphi-Quellcode:

procedure TForm1.CountClick;
begin
  if CheckForWin(GBuffer) then
  begin
    Exit;
  end;
  if GPlayer = 1 then
  begin
    i := i +1;
    Label14.Caption := IntToStr(i);
  end 
  else
  BEGIN // hier
    j := j +1;
    Label13.Caption := IntToStr(j);
  END // und hier
end;

@Neutral: Darauf hamm wir schon des öfteren hingewiesen