unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  ActnList, LCLType, DBCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    FullNoteHole10: TShape;
    FullNoteHole11: TShape;
    FullNoteHole12: TShape;
    FullNoteHole13: TShape;
    FullNoteHole2: TShape;
    FullNoteHole3: TShape;
    FullNoteHole4: TShape;
    FullNoteHole5: TShape;
    FullNoteHole6: TShape;
    FullNoteHole7: TShape;
    FullNoteHole8: TShape;
    FullNoteHole9: TShape;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Shape1: TShape;
    FullNoteHole1: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBText1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure Shape14ChangeBounds(Sender: TObject);
    procedure Shape1ChangeBounds(Sender: TObject);
    procedure Shape2ChangeBounds(Sender: TObject);
    procedure FormKeyDown(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;
  X    : Integer;
  n : integer;
  Key: word;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
  Form1.KeyPreview := True;
end;


procedure TForm1.Image1Click(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  randomize;
  X:=random(13);
       If X=1 then
       begin
       Shape1.Visible:=True;
       FullNoteHole1.Visible:=True;
       Shape1.Brush.color:=clBlack;
       end;

       If X=2 then
       begin
       Shape2.Visible:=True;
       FullNoteHole2.Visible:=True;
       Shape2.Brush.color:=clBlack;
       end;

       If X=3 then
       begin
       Shape3.Visible:=True;
       FullNoteHole3.Visible:=True;
       Shape3.Brush.color:=clBlack;
       end;

       If X=4 then
       begin
       Shape4.Visible:=True;
       FullNoteHole4.Visible:=True;
       Shape4.Brush.color:=clBlack;
       end;

       If X=5 then
       begin
       Shape5.Visible:=True;
       FullNoteHole5.Visible:=True;
       Shape5.Brush.color:=clBlack;
       end;

       If X=6 then
       begin
       Shape6.Visible:=True;
       FullNoteHole6.Visible:=True;
       Shape6.Brush.color:=clBlack;
       end;

       If X=7 then
       begin
       Shape7.Visible:=True;
       FullNoteHole7.Visible:=True;
       Shape7.Brush.color:=clBlack;
       end;

       If X=8 then
       begin
       Shape8.Visible:=True;
       FullNoteHole8.Visible:=True;
       Shape8.Brush.color:=clBlack;
       end;

       If X=9 then
       begin
       Shape9.Visible:=True;
       FullNoteHole9.Visible:=True;
       Shape9.Brush.color:=clBlack;
       end;

       If X=10 then
       begin
       Shape10.Visible:=True;
       FullNoteHole10.Visible:=True;
       Shape10.Brush.color:=clBlack;
       end;

       If X=11 then
       begin
       Shape11.Visible:=True;
       FullNoteHole11.Visible:=True;
       Shape11.Brush.color:=clBlack;
       end;


       If X=12 then
       begin
       Shape12.Visible:=True;
       FullNoteHole12.Visible:=True;
       Shape12.Brush.color:=clBlack;
       end;

       If X=13 then
       begin
       Shape13.Visible:=True;
       FullNoteHole13.Visible:=True;
       Shape13.Brush.color:=clBlack;
       end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
       Shape1.Visible:=False;
       FullNoteHole1.Visible:=False;
       Shape1.Brush.color:=clMenu;
       Shape2.Visible:=False;
       FullNoteHole2.Visible:=False;
       Shape2.Brush.color:=clMenu;
              Shape3.Visible:=False;
       FullNoteHole3.Visible:=False;
       Shape3.Brush.color:=clMenu;
              Shape4.Visible:=False;
       FullNoteHole4.Visible:=False;
       Shape4.Brush.color:=clMenu;
              Shape5.Visible:=False;
       FullNoteHole5.Visible:=False;
       Shape5.Brush.color:=clMenu;
              Shape6.Visible:=False;
       FullNoteHole6.Visible:=False;
       Shape6.Brush.color:=clMenu;
              Shape7.Visible:=False;
       FullNoteHole7.Visible:=False;
       Shape7.Brush.color:=clMenu;
              Shape8.Visible:=False;
       FullNoteHole8.Visible:=False;
       Shape8.Brush.color:=clMenu;
              Shape9.Visible:=False;
       FullNoteHole9.Visible:=False;
       Shape9.Brush.color:=clMenu;
              Shape10.Visible:=False;
       FullNoteHole10.Visible:=False;
       Shape10.Brush.color:=clMenu;
              Shape11.Visible:=False;
       FullNoteHole11.Visible:=False;
       Shape11.Brush.color:=clMenu;
              Shape12.Visible:=False;
       FullNoteHole12.Visible:=False;
       Shape12.Brush.color:=clMenu;
              Shape12.Visible:=False;
       FullNoteHole12.Visible:=False;
       Shape12.Brush.color:=clMenu;
              Shape13.Visible:=False;
       FullNoteHole13.Visible:=False;
       Shape13.Brush.color:=clMenu;

end;



procedure TForm1.DBText1Click(Sender: TObject);
begin

end;


procedure TForm1.Label2Click(Sender: TObject);
begin

end;

procedure TForm1.Label3Click(Sender: TObject);
begin

end;

procedure TForm1.Label5Click(Sender: TObject);
begin

end;

procedure TForm1.Label6Click(Sender: TObject);
begin

end;

procedure TForm1.Label7Click(Sender: TObject);
begin

end;

procedure TForm1.Shape14ChangeBounds(Sender: TObject);
begin

end;

procedure TForm1.Shape1ChangeBounds(Sender: TObject);
begin

end;

procedure TForm1.Shape2ChangeBounds(Sender: TObject);
begin

end;

end.