Задача о ходе коня

var
  Form1: TForm1;
  a         : string;
  l,k,m,i   : integer;
  j         : char;
  MyButton: array[1..8,'a'..'h'] of TButton;
 
const
 z='d4;f5;d6;e8;c7;a8;b6;a4;b2;d1;f2;h1;g3;h5;g7;e6;f8;d7;b8;a6;b4;a2;c1;e2;g1;h3;f4;d3;c5;e4;c3;d5;e3;c4;e5;c6;d8;b7;a5;b3;a1;c2;e1;g2;h4;g6;h8;f7;h6;g4;h2;f1;d2;b1;a3;b5;a7;c8;e7;g8;f6;h7;g5;f3;';
 
 implementation
 
{$R *.dfm}
 
procedure TForm1.MyButtonClick(Sender: TObject);
begin
 ShowMessage('Начало маршрута '+(Sender as TButton).caption+' .');
 label1.Caption:='Для продолжения нажмите "Ходить"';
 a:=(Sender as TButton).caption;
  k:=1;
 (Sender as TButton).caption:=inttostr(k);
 button1.Visible:=true;
    for i := 8 downto 1 do
    for j := 'a' to 'h' do
       MyButton[i,j].Enabled:=false;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 var
  f,b,c,d :integer;
begin
 ShowMessage('Нахождение маршрута шахматного коня, для проходящего через все поля доски по одному разу. Из поля '+a+' .');
 label1.Caption:='Нажмите "Открыть поле" для повторного использования программы';
 Button2.Enabled:=true;
  button1.Visible:=False;
 for f:=1 to 64 do
  if (a[1]+a[2])=(z[f*3-2]+z[f*3-1]) then
  begin
  l:=f+1;
  a:=(z[l*3-2]+z[l*3-1]);
  break;
  end;
 
 for b := l to 64 do
   for i := 8 downto 1 do
    for j := 'a' to 'h' do
      if MyButton[i,j].Caption=(z[b*3-2]+z[b*3-1]) then
       begin
        k:=k+1;
        MyButton[i,j].Caption:=inttostr(k);
       end;
 
  for b := 1 to l do
   for i := 8 downto 1 do
    for j := 'a' to 'h' do
      if MyButton[i,j].Caption=(z[b*3-2]+z[b*3-1]) then
      begin
      k:=k+1;
      MyButton[i,j].Caption:=inttostr(k);
      end;
 
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
 var
   b,c,d,e  : integer;
 
begin
label1.Caption:='Выберите исходную точку.';
Button2.Enabled:=false;
    for i := 8 downto 1 do
      begin
        if i=8 then e:=1 else e:=e+1;
         for j := 'a' to 'h' do
    begin
       if j='a' then b:=1 else b:=b+1;
       if j='a' then
            begin
              c:=20;
              d:=85;
            end;
          MyButton[i,j] := TButton.Create(self);
          with MyButton[i,j] do
            begin
              Parent     := self;
              Left       := b*50+c;
              Top        := e*50+d;
              Width      := 49;
              Height     := 49;
              OnClick    := MyButtonClick;
              Caption    := j+IntToStr(i);;
              Visible    := true;
              Font.Style := [fsBold];
              Font.Size  := 15;
        end;
    end;
 label1.Visible:=true;
end;
 
end;
 
end.