Курсовая работа: Разработка программы, моделирующую игру Кости

BitBtn1: TBitBtn;

N4: TMenuItem;

N5: TMenuItem;

Image3: TImage;

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure invisible_all(Sender: TObject);

procedure visible_all(Sender: TObject);

procedure Label6Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Ochki: longint;//переменная, отвечающая за очки игрока

implementation

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);//кнопкавыход

begin

application.Terminate;//закрываемприложение

end;

procedure TForm1.N2Click(Sender: TObject);//новаяигра

var i:integer;

begin