Головоломка "Рыболовы"

unit Unit4;
 
interface 
 
uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls, ExtCtrls, Grids, jpeg; 
 
type 
TForm4 = class(TForm) 
Label1: TLabel; 
ComboBox1: TComboBox; 
Button1: TButton; 
Button2: TButton; 
Button3: TButton; 
Edit1: TEdit; 
Label2: TLabel; 
Image1: TImage; 
Image2: TImage; 
procedure Label1Click(Sender: TObject); 
procedure FormCreate(Sender: TObject); 
procedure Image2MouseDown(Sender: TObject; Button: TMouseButton; 
Shift: TShiftState; X, Y: Integer); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
 
type 
  mass = array [0..8, 0..8] of integer; 
 
const 
  n = 6; 
 
var 
 Form4: TForm4; 
 f: text; 
 Arr, arr2: mass; 
 Per: array of array of TImage; 
 
flag: boolean; 
pict: array [0..11] of TPicture; 
 
implementation 
 
uses Unit2; 
//создание ячейки 
procedure ImageCreate(top,left:Cardinal; var Image:TImage); 
begin 
   Image:=TImage.Create(Form4); 
   Image.Height:=50; 
   Image.Width:=50; 
   Image.Top:=top; 
   Image.Left:=left; 
   Image.OnMouseDown:=Form4.Image2.OnMouseDown; 
end; 
 
{$R *.dfm} 
 
procedure TForm4.Label1Click(Sender: TObject); 
begin 
  Form2.Show; 
  Form4.Visible:=false; 
end; 
 
 
//создание поля 
procedure TForm4.FormCreate(Sender: TObject); 
var 
   i,j:Cardinal; 
begin 
   SetLength(per,6,6); 
   for i:=0 to 5 do 
   for j:=0 to 5 do 
   ImageCreate(16+50*i,200+j*50,Per[i,j]); 
end; 
//процедура нажания кнопок мыши 
procedure TForm4.Image2MouseDown(Sender: TObject; Button: TMouseButton; 
Shift: TShiftState; X, Y: Integer); 
begin 
  // 
  // 
  // 
end; 
 
end.