TicTacToe

[sHoXx]

[EDIT]

Zitat:

Und das z.B. die OnClick-Methode ganze 9 mal redundant vorkommt, ist da nicht so schlimm?!

[/EDIT]

außerdem würde ich dir empfehlen allen buttons das selbe Ereignis zuzuweisen:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Druecken;
  If t = 1 then 
  begin
    TButton(Sender).Caption := 'x';
  end;

  If t = 2 then 
  begin
    TButton(Sender).Caption := 'o' 
    t := 0;
  end;
end;

statt 9 mal der selbe Code hast du dann 1 mal Code für 9 Buttons

ist nicht getestet nur eben hingeschrieben sollte aber funktionieren