#pas
procedure TForm1.Button1Click(Sender: TObject);// Кнопка 1 переменная А
begin
if a = 1 then a:=0
else a:=1;
button1.Caption:=IntToStr(a);
if d = 1 then d:=0
else d:=1;
button4.Caption:=IntToStr(d);
if g = 1 then g:=0
else g:=1;
button7.Caption:=IntToStr(g);
if b = 1 then b:=0
else b:=1;
button2.Caption:=IntToStr(b);
if c = 1 then c:=0
else c:=1;
button3.Caption:=IntTOStr(c);
sum:=a+b+c+d+e+f+g+z+h;
if sum = 9 then label1.Caption:='Победа ';
if sum = 0 then Label1.Caption:='Победа ';
if sum = 9 then Timer1.Enabled:=True;
if sum = 0 then Timer1.Enabled:=True;
if sum = 9 then Button10.Enabled:=True;
if sum = 0 then Button10.Enabled:=True;
end;
procedure TForm1.Button2Click(Sender: TObject);// Кнопка 2 переменная B
begin
if a = 1 then a:=0
else a:=1;
button1.Caption:=IntToStr(a);
if b = 1 then b:=0
else b:=1;
button2.Caption:=IntToStr(b);
if c = 1 then c:=0
else c:=1;
button3.Caption:=IntToStr(c);
if z = 1 then z:=0
else z:=1;
button8.Caption:=IntToStr(z);
if e = 1 then e:=0
else e:=1;
button5.Caption:=IntTOStr(e);
sum:=a+b+c+d+e+f+g+z+h;
if sum = 9 then label1.Caption:='Победа ';
if sum = 0 then Label1.Caption:='Победа ';
if sum = 9 then Timer1.Enabled:=True;
if sum = 0 then Timer1.Enabled:=True;
if sum = 9 then Button10.Enabled:=True;
if sum = 0 then Button10.Enabled:=True;
end;
фффффффффф

#pas
if a = 1 then a:=0
else a:=1;
button1.Caption:=IntToStr(a);