+ i: integer;\r
+ j: integer;\r
+ m, n: integer;\r
+begin\r
+ j := 0;\r
+ n := 0;\r
+ for i := 1 to 9 do\r
+ with Self.FindComponent(Format('SpeedButton%d', [i])) as TSpeedButton do\r
+ begin\r
+ if Tag = Ord(KARA) then\r
+ begin\r
+ if j = 0 then\r
+ j := i;\r
+ Tag := Ord(PEKE);\r
+ if Check(false) = true then\r
+ begin\r
+ Caption := '✖';\r
+ Showmessage('LOSE');\r
+ Start;\r
+ Exit;\r
+ end;\r
+ m := Hantei;\r
+ if m > n then\r
+ begin\r
+ n := m;\r
+ j := i;\r
+ end;\r
+ Tag := Ord(KARA);\r
+ end;\r
+ end;\r
+ with Self.FindComponent(Format('SpeedButton%d', [j])) as TSpeedButton do\r
+ begin\r
+ Tag := Ord(PEKE);\r
+ Caption := '✖';\r
+ Check;\r
+ end;\r
+end;\r
+\r
+function TForm1.Check(const Bool: Boolean): Boolean;\r
+var\r
+ i: integer;\r