Курсовая работа: Кратчайший путь передвижения короля по шахматному полю

for j:=1 to y do begin

img[i,j]:=timage.create(self); // Выделяем память

img[i,j].Parent:=self; // Указываем родителя, чтобы клетка была именно на Form 2, а не где - то

img[i,j].Top:=j*wid;

img[i,j].Stretch:=true; // Чтоб весь рисунок помещался

img[i,j].Left:=i*wid;

// В зависимости от координат поля загружаем то черный, то белый фоны для клеток

if ((i+j) mod 2)=0 then

img[i,j].picture.loadfromfile('ch.bmp') //:=inttostr(x+y);

else

img[i,j].picture.loadfromfile('bl.bmp');//:=inttostr(x+y);

img[i,j].Width:=wid;

img[i,j].Height:=wid;

img[i,j].Tag:=i*100+j;

// Устанавливаем обработчик нажатия на клетку

img[i,j].onclick:=procClick;

end;

// Для пущей верности

self.WindowState:=wsMaximized;

// Снабдим мемо текущей информацией

memo1.Clear;

memo1.Lines.Add('Укажите начальное место расположения короля');

memo1.Left:=wid*(x+2);

memo1.Font.Name:='Times New Roman';

memo1.Font.Size:=25;

memo1.Width:=round(form2.width /2.5);

memo1.Height:=self.Height div 2;

// Придадим кнопке под мемо соответствующий вид

bitbtn1.Left:=memo1.left;