Рабочий модуль приложения:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, StdCtrls, Buttons, Domino;

type

TForm1 = class(TForm)

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

Button1: TButton;

Button2: TButton;

Domino1: TDomino;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

Domino1.Begin_game;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Domino1.End_game

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

Domino1.Move_strelka_l;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Domino1.Move_strelka_r;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Application.Terminate;

end;

end.