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

[biby90]

Delphi-Quellcode:

procedure TForm1.Label9Click(Sender: TObject);
var
   Kombination: MyStringArray;
begin
    Kombination[0] := Label7.Caption;
    Kombination[1] := Label8.Caption;
    Kombination[2] := Label9.Caption;
  if IsFieldEmpty(Label9.Caption) then
  begin
    Label9.Caption := WriteToField(GPlayer);
    if CheckForWin(Kombination) then
    begin
      Label9.Caption := '';
      ShowMessage(IntToStr(GPlayer)+' hat gewonnen!');
      GPlayer := 1;
    end else
    begin
      ChangePlayer;
    end;
  end;
end;

sorry, der Server stürzt die ganze Zeit ab.... -.-