Игра "Пятнашки"

procedure TForm1.FormCreate(Sender: TObject);
var
row,col:integer;
begin
d:=50;
for I := 0 to 15 do
begin
game[I]:=TButton.Create(pole);
game[I].Parent:=Form1;
game[I].Width:=d; game[I].Height:=d;
game[I].Font.style:=pole.Font.style;
game[I].Font.Size:=pole.Font.Size;
game[I].Caption:=inttostr(i);
col:=i mod 4;
row:=i div 4;
game[I].top:=d*row;
game[I].Left:=d*col;
game[I].OnClick:=GameClick;
end;
game[0].caption:='';
game[0].Visible:=false;
end;
 
Procedure Tform1.GameClick(Sender: TObject);
var
x0,y0,x,y,index:integer;
begin
for I := 0 to 15 do
if game[i].focused=true then index:=i;
x0:=game[0].left;
y0:=game[0].Top;
x:=game[index].left;
y:=game[index].top;
if (x0=x) and (abs(y-y0)=d) then 
Begin
game[0].left:=x; game[0].Top:=y;
game[index].left:=x0; game[index].top:=y0;
End;
if (y0=y) and (abs(x-x0)=d) then
Begin
game[0].left:=x; game[0].Top:=y;
game[index].left:=x0; game[index].top:=y0;
End;
end;
 
procedure TForm1.mnuNewGameClick(Sender: TObject);
begin
per.Enabled:=true;
randomize;
for v:=0 to 10 do
begin
row:=random(15)+1;
game[row].setFocus;
gameclick(game[row]);
end;
timer1.Interval:=100;
end;
 
procedure TForm1.perClick(Sender: TObject);
begin
randomize;
for v:=0 to 10 do
begin
row:=random(15)+1;
game[row].setFocus;
gameclick(game[row]);
end;
timer1.enabled:=true;
timer1.Interval:=100;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
a,d,i:integer;
begin
d:=50;
a:=0;
for I := 0 to 15 do
begin
col:=i mod 4;
row:=i div 4;
if (game[i].Top = d*row) and  (game[i].left=d*col) then  a:=a+1;
end;
if a=16 then
begin
timer1.interval:=0;
showmessage ('Вы выиграли!');
per.enabled:=false;
end;
end;
 
procedure TForm1.treeClick(Sender: TObject);
var
row,col:integer;
begin
d:=50;
for I := 0 to 15 do
begin
game[I]:=TButton.Create(pole);
game[I].Parent:=Form1;
game[I].Width:=d; game[I].Height:=d;
game[I].Font.style:=pole.Font.style;
game[I].Font.Size:=pole.Font.Size;
game[I].Caption:=inttostr(i);
col:=i mod 6;
row:=i div 6;
game[I].top:=d*row;
game[I].Left:=d*col;
game[I].OnClick:=GameClick;
end;
game[0].caption:='';
game[0].Visible:=false;
end;