t (s1 [4])=15) then begin showmessage («2 гравець переміг!");: =pob1 +1;:=por +1;; j=3 thenm=15 then begin showmessage («2 гравець переміг!");:=pob1 +1;:=por +1;;;. Enabled:=false;;
TForm1. Panel8Click (Sender: TObject);:=q +1; q mod 2=1 thenpanel8. Color:=clyellow;:=i +1;:=n +8;:=s + «8»; i=4 then (strtoint (s [1]) + strtoint (s [2]) + strtoint (s [3])=15) or
(strtoint (s [1]) + strtoint (s [2]) + strtoint (s [4])=15) or
(strtoint (s [2]) + strtoint (s [3]) + strtoint (s [4])=15) or
(strtoint (s [1]) + strtoint (s [3]) + strtoint (s [4])=15) then begin showmessage («1 гравець переміг!");: =pob +1;:=por1 +1;; i=3 thenn=15 then begin showmessage («1 гравець переміг!");:=pob +1;:=por1 +1;;; q mod 2= 0 thenpanel8. Color:=clgreen;:=j +1;:=m +8;:=s1 + «8»; i=4 then (strtoint (s1 [1]) + strtoint (s1 [2]) + strtoint (s1 [3])=15) or
(strtoint (s1 [1]) + strtoint (s1 [2]) + strtoint (s1 [4])=15) or
(strtoint (s1 [2]) + strtoint (s1 [3]) + strtoint (s1 [4])=15) or
(strtoint (s1 [1]) + strtoint (s1 [3]) + strtoint (s1 [4])=15) then begin showmessage («2 гравець переміг!");: =pob1 +1;:=por +1;; j=3 thenm=15 then begin showmessage («2 гравець переміг!");:=pob1 +1;:=por +1;;;. Enabled:=false;;
TForm1. Panel9Click (Sender: TObject);:=q +1; q mod 2=1 thenpanel9. Color:=clyellow;:=i +1;:=n +9;:=s + «9»; i=4 then (strtoint (s [1]) + strtoint (s [2]) + strtoint (s [3])=15) or
(strtoint (s [1]) + strtoint (s [2]) + strtoint (s [4])=15) or
(strtoint (s [2]) + strtoint (s [3]) + strtoint (s [4])=15) or
(strtoint (s [1]) + strtoint (s [3]) + strtoint (s [4])=15) then («1 гравець переміг!");:=pob +1;:=por1 +1;; i=3 thenn=15 then begin showmessage («1 гравець переміг!");:=pob +1;:=por1 +1;;; q mod 2=0 thenpanel9 . Color:=clgreen;:=j +1;:=m +9;:=s1 + «9»; i=4 then (strtoint (s1 [1]) + strtoint (s1 [2]) + strtoint (s1 [3])=15) or
(strtoint (s1 [1]) + strtoint (s1 [2]) + strtoint (s1 [4])=15) or
(strtoint (s1 [2]) + strtoint (s1 [3]) + strtoint (s1 [4])=15) or
(strtoint (s1 [1]) + strtoint (s1 [3]) + strtoint (s1 [4])=15) then begin («2 гравець переміг!");
pob1:=pob1 +1;:=por +1;; j=3 thenm=15 then begin («2 гравець переміг!");
pob1:=pob1 +1;:=por +1;;;. Enabled:=false;;
TForm1.N4Click (Sender: TObject);;;
TForm1. Button1Click (Sender: TObject);. Hide;;
TForm1. FormActivate (Sender: TObject); r: integer;:=0;:=0;:=0;:=0;:=0;:=«»;:=«»;
r:=1 to 9 do begin
(FindComponent («panel» + inttostr (r)) as TPanel). Color:=clBtnFace;
(FindComponent («panel» + inttostr (r)) as TPanel). Enabled:=true;;;
TForm1. Button3Click (Sender: TObject);. Close;;
TForm1. Button2Click (Sender: TObject);. Label5. Caption:=inttostr (pob);. Label7. Caption:=inttostr (pob1);. Label6. Caption:=inttostr (por);. Label8. Caption:=inttostr (por1);. Show;;
TForm1.N2Click (Sender: TObject);. Hide;. Show;;
TForm1...
