Die du vorgeschlagen hast....
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
j := j +1;
Label13.Caption := IntToStr(j);
end;