Не производится расчет ничьей

unit Unit6;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, jpeg;
  const
  lin : array[1..10,1..4] of byte =
        ((1,2,3,4),
         (5,6,7,8),
         (9,10,11,12),
         (13,14,15,16),
         (1,5,9,13),
         (2,6,10,14),
         (3,7,11,15),
         (4,8,12,16),
         (1,6,11,16),
         (4,7,10,13));
   glub=4;
 
type
  position=array [1..16] of byte;
  TForm6 = class(TForm)
    Label4: TLabel;
    Label5: TLabel;
    Button2: TButton;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    Panel14: TPanel;
    Panel15: TPanel;
    Panel16: TPanel;
    Panel17: TPanel;
    Panel18: TPanel;
    Panel19: TPanel;
    Panel27: TPanel;
    Panel29: TPanel;
    Panel30: TPanel;
    Panel31: TPanel;
    Panel32: TPanel;
    Panel33: TPanel;
    Panel28: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    Image3: TImage;
    Image4: TImage;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Button1: TButton;
    procedure Panel11Click(Sender: TObject);
    procedure Panel12Click(Sender: TObject);
    procedure Panel13Click(Sender: TObject);
    procedure Panel27Click(Sender: TObject);
    procedure Panel14Click(Sender: TObject);
    procedure Panel15Click(Sender: TObject);
    procedure Panel16Click(Sender: TObject);
    procedure Panel28Click(Sender: TObject);
    procedure Panel17Click(Sender: TObject);
    procedure Panel18Click(Sender: TObject);
    procedure Panel19Click(Sender: TObject);
    procedure Panel29Click(Sender: TObject);
    procedure Panel33Click(Sender: TObject);
    procedure Panel32Click(Sender: TObject);
    procedure Panel31Click(Sender: TObject);
    procedure Panel30Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var c,b,xod:byte;
  Form6: TForm6;
  Kl : position;
  Ray: position;
  li: array [1..10] of byte;
  ch: boolean;
 
implementation
 
uses Unit7, Unit4, Unit5, Unit2;
 
{$R *.dfm}
 
procedure NewGame;
var i:byte;
begin
form6.panel11.Caption:='';
form6.panel12.Caption:='';
form6.panel13.Caption:='';
form6.panel14.Caption:='';
form6.panel15.Caption:='';
form6.panel16.Caption:='';
form6.panel17.Caption:='';
form6.panel18.Caption:='';
form6.panel19.Caption:='';
form6.panel27.Caption:='';
form6.panel28.Caption:='';
form6.panel29.Caption:='';
form6.panel30.Caption:='';
form6.panel31.Caption:='';
form6.panel32.Caption:='';
form6.panel33.Caption:='';
for i:=1 to 16 do begin
    kl[i]:=0;
    ray[i]:=0;
    end;
form6.label2.Caption:=inttostr(b)+' : '+inttostr(c);
end;
 
function Fin(pos: position):byte;
var
   ni,sa,so,i,j,sj,res:byte;
begin
 ni:=5;
 res:=0;
 for i:=1 to 10 do begin
   sa:=5;so:=0;li[i]:=0;
   for j:=1 to 4 do begin
     sj:=pos[lin[i,j]];
     sa := sa and sj;
     so := so or sj;
     li[i] := li[i] + sj
   end;
   res := res or sa;
   ni := ni and so
 end;
 if ni=5 then res:=4;
 Fin:=res
end;
 
function NextStep(pos:position;i,fig,wlo:byte):byte;
var j : byte;
    ra:position;
begin
pos[i]:=fig;
inc(wlo);
if fig=1 then fig:=4 else fig:=1;
Result:=Fin(pos) shl 4;
if Result<>0 then exit;
if wlo<glub then
  begin
    for j:=1 to 16 do
      if pos[j]=0 then
        begin
          ra[j]:=NextStep(pos,j,fig,wlo);
          if ra[j]<16 then inc(ra[j]) else
          if ra[j]>24 then dec(ra[j])
        end;
    if fig=1 then
      begin
        Result:=32;
        for j:=1 to 16 do
          if (pos[j]=0) and (Result>ra[j])
            then Result:=ra[j]
      end
     else
      begin
        Result:=8;
        for j:=1 to 16 do
          if (pos[j]=0) and (Result < ra[j])
            then Result:=ra[j]
      end
  end
else Result:=16
end;
 
procedure Rayting;
var i: byte;
begin
 for i:=1 to 16 do
  if Kl[i]=0 then Ray[i]:=NextStep(Kl,i,4,0)
  else Ray[i]:=0
end;
 
procedure Analis;
begin
 case Fin(Kl) of
   0 : if ch then Rayting;
   1 :begin
      if xod<>0 then Application.messagebox('Âûèãðàë Èãðîê ¹1','Ðåçóëüòàò')
                else Application.messagebox('Âû âûèãðàëè','Ðåçóëüòàò');
      b:=b+1;
      form6.label2.caption:=inttostr(b)+' : '+inttostr(c);
      newgame;
      end;
   3 :begin
      Application.messagebox('Íè÷üÿ','Ðåçóëüòàò');
      form6.label2.caption:=inttostr(b)+' : '+inttostr(c);
      newgame;
      end;
   4 :begin
      if xod<>0 then Application.messagebox('Âûèãðàë Èãðîê ¹2','Ðåçóëüòàò')
                else Application.messagebox('Âû ïðîèãðàëè','Ðåçóëüòàò');
      c:=c+1;
      form6.label2.caption:=inttostr(b)+' : '+inttostr(c);
      NewGame;
      end;
 end
end;
 
procedure DrawCell(i:byte);
begin;
end;
 
procedure SelectCell;
var
  m,r,mr,i: byte;
begin
  ch:=false;
  m:=0;r:=0;
  for i:=1 to 16 do
    if Ray[i]>r then r:=Ray[i];
  for i:=1 to 16 do
    if Ray[i]=r then m:=m+1;
  mr:=random(m)+1;
  m:=0;
  for i:=1 to 16 do begin
    if Ray[i]=r then begin
      m:=m+1;
      if m=mr then begin
        Kl[i]:=4;
        DrawCell(i);
        break
      end
    end
       end
    end;
 
procedure TForm6.Panel11Click(Sender: TObject);
var i,sum:byte;
begin
if panel11.Caption='' then begin
 if xod mod 2=0 then begin
         panel11.Font.Color:=form7.colorbox1.Selected;
         panel11.Caption:='X';
         kl[1]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel11.Font.Color:=form7.colorbox2.Selected;
         panel11.Caption:='0';
         kl[1]:=4;
         inc(xod);
         label5.Caption:=label1.Caption;
         end;
analis;
end;
end;
 
procedure TForm6.Panel12Click(Sender: TObject);
var i,sum:byte;
begin
if panel12.Caption='' then begin
 if xod mod 2=0 then begin
         panel12.Font.Color:=form7.colorbox1.Selected;
         panel12.Caption:='X';
         kl[2]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel12.Font.Color:=form7.colorbox2.Selected;
         panel12.Caption:='0';
         kl[2]:=4;
         inc(xod);
         label5.Caption:=label1.Caption;
         end;
analis;
end;
 
end;
 
procedure TForm6.Panel13Click(Sender: TObject);
var i,sum:byte;
begin
if panel13.Caption='' then begin
 if xod mod 2=0 then begin
         panel13.Font.Color:=form7.colorbox1.Selected;
         panel13.Caption:='X';
         kl[3]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel13.Font.Color:=form7.colorbox2.Selected;
         panel13.Caption:='0';
         kl[3]:=4;
         inc(xod);
         label5.Caption:=label1.Caption;
         end;
analis;
end;
end;
 
procedure TForm6.Panel27Click(Sender: TObject);
var i,sum:byte;
begin
if panel27.Caption='' then begin
 if xod mod 2=0 then begin
         panel27.Font.Color:=form7.colorbox1.Selected;
         panel27.Caption:='X';
         kl[4]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel27.Font.Color:=form7.colorbox2.Selected;
         panel27.Caption:='0';
         kl[4]:=4;
         inc(xod);
         label5.Caption:=label1.Caption;
         end;
analis;
end;
end;
 
procedure TForm6.Panel14Click(Sender: TObject);
var i,sum:byte;
begin
if panel14.Caption='' then begin
 if xod mod 2=0 then begin
         panel14.Font.Color:=form7.colorbox1.Selected;
         panel14.Caption:='X';
         kl[5]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel14.Font.Color:=form7.colorbox2.Selected;
         panel14.Caption:='0';
         kl[5]:=4;
         inc(xod);
         label5.Caption:=label1.Caption;
         end;
analis;
end;
end;
 
procedure TForm6.Panel15Click(Sender: TObject);
var i,sum:byte;
begin
if panel15.Caption='' then begin
 if xod mod 2=0 then begin
         panel15.Font.Color:=form7.colorbox1.Selected;
         panel15.Caption:='X';
         kl[6]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel15.Font.Color:=form7.colorbox2.Selected;
         panel15.Caption:='0';
         kl[6]:=4;
         inc(xod);
         label5.Caption:=label1.Caption;
         end;
analis;
end;
end;
 
procedure TForm6.Panel16Click(Sender: TObject);
var i,sum:byte;
begin
if panel16.Caption='' then begin
 if xod mod 2=0 then begin
         panel16.Font.Color:=form7.colorbox1.Selected;
         panel16.Caption:='X';
         kl[7]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel16.Font.Color:=form7.colorbox2.Selected;
         panel16.Caption:='0';
         kl[7]:=4;
         inc(xod);
         label5.Caption:=label1.Caption;
         end;
analis;
end;
end;
 
procedure TForm6.Panel28Click(Sender: TObject);
var i,sum:byte;
begin
if panel28.Caption='' then begin
 if xod mod 2=0 then begin
         panel28.Font.Color:=form7.colorbox1.Selected;
         panel28.Caption:='X';
         kl[8]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel28.Font.Color:=form7.colorbox2.Selected;
         panel28.Caption:='0';
         kl[8]:=4;
         inc(xod);
         label5.Caption:=label1.Caption;
         end;
analis;
end;
end;
 
procedure TForm6.Panel17Click(Sender: TObject);
var i,sum:byte;
begin
if panel17.Caption='' then begin
 if xod mod 2=0 then begin
         panel17.Font.Color:=form7.colorbox1.Selected;
         panel17.Caption:='X';
         kl[9]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel17.Font.Color:=form7.colorbox2.Selected;
         panel17.Caption:='0';
         kl[9]:=4;
         label5.Caption:=label1.Caption;
         inc(xod)
         end;
analis;
end;
end;
 
procedure TForm6.Panel18Click(Sender: TObject);
var i,sum:byte;
begin
if panel18.Caption='' then begin
 if xod mod 2=0 then begin
         panel18.Font.Color:=form7.colorbox1.Selected;
         panel18.Caption:='X';
         kl[10]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel18.Font.Color:=form7.colorbox2.Selected;
         panel18.Caption:='0';
         kl[10]:=4;
         label5.Caption:=label1.Caption;
         inc(xod)
         end;
analis;
end;
end;
 
procedure TForm6.Panel19Click(Sender: TObject);
var i,sum:byte;
begin
if panel19.Caption='' then begin
 if xod mod 2=0 then begin
         panel19.Font.Color:=form7.colorbox1.Selected;
         panel19.Caption:='X';
         kl[11]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel19.Font.Color:=form7.colorbox2.Selected;
         panel19.Caption:='0';
         kl[11]:=4;
         label5.Caption:=label1.Caption;
         inc(xod)
         end;
analis;
end;
end;
 
procedure TForm6.Panel29Click(Sender: TObject);
var i,sum:byte;
begin
if panel29.Caption='' then begin
 if xod mod 2=0 then begin
         panel29.Font.Color:=form7.colorbox1.Selected;
         panel29.Caption:='X';
         kl[12]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel29.Font.Color:=form7.colorbox2.Selected;
         panel29.Caption:='0';
         kl[12]:=4;
         inc(xod);
         label5.Caption:=label1.Caption;
         end;
analis;
end;
end;
 
procedure TForm6.Panel33Click(Sender: TObject);
var i,sum:byte;
begin
if panel33.Caption='' then begin
 if xod mod 2=0 then begin
         panel33.Font.Color:=form7.colorbox1.Selected;
         panel33.Caption:='X';
         kl[13]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel33.Font.Color:=form7.colorbox2.Selected;
         panel33.Caption:='0';
         kl[13]:=4;
         inc(xod);
         label5.Caption:=label1.Caption;
         end;
analis;
end;
end;
 
procedure TForm6.Panel32Click(Sender: TObject);
var i,sum:byte;
begin
if panel32.Caption='' then begin
 if xod mod 2=0 then begin
         panel32.Font.Color:=form7.colorbox1.Selected;
         panel32.Caption:='X';
         kl[14]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel32.Font.Color:=form7.colorbox2.Selected;
         panel32.Caption:='0';
         kl[14]:=4;
         inc(xod);
         label5.Caption:=label1.Caption;
         end;
analis;
end;
end;
 
procedure TForm6.Panel31Click(Sender: TObject);
var i,sum:byte;
begin
if panel31.Caption='' then begin
 if xod mod 2=0 then begin
         panel31.Font.Color:=form7.colorbox1.Selected;
         panel31.Caption:='X';
         kl[15]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel31.Font.Color:=form7.colorbox2.Selected;
         panel31.Caption:='0';
         kl[15]:=4;
         inc(xod);
         label5.Caption:=label1.Caption;
         end;
analis;
end;
end;
procedure TForm6.Panel30Click(Sender: TObject);
var i,sum:byte;
begin
if panel30.Caption='' then begin
 if xod mod 2=0 then begin
         panel30.Font.Color:=form7.colorbox1.Selected;
         panel30.Caption:='X';
         kl[16]:=1;
         inc(xod);
         label5.Caption:=label3.Caption;
         end
         else begin
         panel30.Font.Color:=form7.colorbox2.Selected;
         panel30.Caption:='0';
         kl[16]:=4;
         inc(xod);
         label5.Caption:=label1.Caption;
         end;
analis;
end;
end;
 
procedure TForm6.N11Click(Sender: TObject);
begin
 form7.show;
 form6.enabled:=false;
end;
 
procedure TForm6.Button2Click(Sender: TObject);
begin
form5.show;
Form6.Hide;
end;
 
procedure TForm6.Button1Click(Sender: TObject);
begin
Form7.Show;
end;
 
procedure TForm6.FormCreate(Sender: TObject);
begin
b:=0;
c:=0;
end;