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

i:=1;

// В клетки, где проходит линия, загрузим голубую картинку

while (i<L) do begin

img[round(x[i]), round(y[i])].Picture.LoadFromFile('put.bmp');

inc(i); end;

// В мемо запишем текущую информацию для пользователя

memo1.Clear;

memo1.Lines.Add('Вам требуется' + inttostr(L) + ' ходов:))');

//

// Изменим внешний вид и функцию кнопки под мемо

bitbtn1.Kind:=bkRetry;

bitbtn1.Caption:=' Еще раз!';

bitbtn1.tag:=2;

end;

procedure TForm2.procClick(sender: tobject);

// Процедура постановки короля на поле и указания клетки - цели

var x, y:integer;

begin

//

// Получаем координаты по tag

x:=(sender as timage).Tag div 100;

y:=(sender as timage).tag mod 100;

// Если это постановка короля, загрузить «короля» в выбранную клетку

if etap=postanovka then begin

if ((x +y) mod 2)=0 then (sender as timage).Picture.LoadFromFile('krch.bmp')

else

(sender as timage).Picture.LoadFromFile('krbl.bmp');

etap:=selectPlace; // Теперь переходим к указанию места назначения

korolX:=x;