Шахматы

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure PanelClick(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  ball: Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
const
  c: array[Boolean] of TColor = (clMaroon, $0079BFFF);
var
  i, j: Byte;
begin
  for i := 0 to 7 do
    for j := 0 to 7 do
      with TPanel.Create(Self) do
      begin
        Left := 50 * j;
        Top := 50 * i;
        Width := 50;
        Height := 50;
        Name := Char(i + $61) + IntToStr(j);
        Caption := Name;
        OnClick := PanelClick; //добавим обработчик клика
        Color := c[(i + j) mod 2 = 0];
        Parent := Self;
      end;
end;
 
procedure TForm1.PanelClick(Sender: TObject);
begin
  if Memo1.Lines.IndexOf(TPanel(Sender).Caption) <> -1 then
  begin
    ShowMessage('Конь сюда ходил!');
    Exit;
  end
  else
    Memo1.Lines.Add(TPanel(Sender).Caption);
  Image1.Parent := (Sender as TPanel);
  Image1.Left := 0;
  Image1.Top := 0;
  (Sender as TPanel).Color := $00A7A7A7;
 
  inc(ball);
  Label2.Caption := 'Очки: ' + IntToStr(ball);
  if ball = 64 then
    ShowMessage('Победа!');
end;
 
end.