[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