Не удаётся запустить программу

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
 
 
    procedure BitBtn1Click(Sender: TObject);
      private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  n : Integer = 4;
  win : Integer = 24;
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var  i: Integer;
     с: Integer;
     k: Integer;
     ak: Integer;
begin
with Sender as TBitBtn do
 begin
  i:= Tag div 2;
  с:= Tag mod 2;
  k := n - i;
  ak :=Abs (k);
  if ak < 3 then
    if ((с = 0) and (k>0)) or ((с = 1) and (k<0))
     then
      begin
      Tag := Tag + 2 * k;
      Left := Left + 56 * k;
      win := win - ak;
      n := i;
      end;
      end;
if win = 0 then
    begin
    Caption := ('Победа!');
    Panel1.Color := clFuchsia;
    Panel1.Enabled := False;
end;
end;
 
 
end.