Игры на Делфи [Сергей Вячеславович Хвощев глобус] (pdf) читать онлайн

Создание игр
1. Стрелялка

Первая кнопка поворачивает наш кубик влево. Вторая двигает вперед. Третья назад.
Четвертая в право. Пятая стреляет шариком. Шестая возвращает видимость обоим
кубикам. Враг двигается и стреляет под управлением таймера. Можно включить поворот
врага на вас.
// влево
procedure TForm1.Button1Click(Sender: TObject);
begin
Cube2.RotationAngle.Y := Cube2.RotationAngle.Y - 1;
Caption:=Cube2.RotationAngle.Y.ToString;
if Cube2.RotationAngle.Y=90 then Cube2.RotationAngle.Y:=89;
end;
// выстрел
procedure TForm1.Button5Click(Sender: TObject);
begin
if Cube2.Visible = true then
begin
S := TSphere.Create(Viewport3D1);
S.Parent := Viewport3D1;
S.Position.X := Cube2.Position.X;
S.Position.Y := Cube2.Position.Y;
S.Position.Z := Cube2.Position.Z;
S.Width := 1;
S.Height := 1;
while (S.Position.Z < 100) do
begin
S.Position.Z := S.Position.Z + 1 *
sin(DegToRad(Cube2.RotationAngle.Y + 90));
S.Position.X := S.Position.X - 1 *
cos(DegToRad(Cube2.RotationAngle.Y + 90));
if (S.Position.X >= Cube1.Position.X) and
(S.Position.X + S.Width = Cube1.Position.Y) and
(S.Position.Y + S.Height = Cube1.Position.Z) and
(S.Position.Z + S.Depth -11) do
begin
S.Position.Z := S.Position.Z - 1 *
sin(DegToRad(Cube1.RotationAngle.Y + 90));
S.Position.X := S.Position.X + 1 *
cos(DegToRad(Cube1.RotationAngle.Y + 90));
if (S.Position.X >= Cube2.Position.X) and
(S.Position.X + S.Width = Cube2.Position.Y) and
(S.Position.Y + S.Height = Cube2.Position.Z) and
(S.Position.Z + S.Depth = Cube1.Position.X) and

(S.Position.X + S.Width = Cube1.Position.Y) and
(S.Position.Y + S.Height = Cube1.Position.Z) and
(S.Position.Z + S.Depth = Panel2.Height then
begin
lv := lv + 1;
if lv >= 4 then
begin
lv := 0;
Timer1.Interval := 1000;
end;
Label3.Text := 'Уровень ' + lv.ToString;
Timer1.Interval := round(Timer1.Interval / 2);
Image2.Position.Y := ToolBar1.Position.Y;
end;
end;
// влево
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Position.X := Image1.Position.X - 50;
end;
// вправо
procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Position.X := Image1.Position.X + 50;
end;
// выстрел
procedure TForm1.Button3Click(Sender: TObject);
begin
if (Image1.Visible = true) and (Image2.Visible = true) then
begin
C := TCircle.Create(Panel2);
C.Parent := Panel2;
C.Position.X := Image1.Position.X + Image1.Width / 2;
C.Position.Y := Image1.Position.Y;
C.Width := 10;
C.Height := 10;
while (C.Position.Y >= 50) do
begin
C.Position.Y := C.Position.Y - 50;
if (C.Position.X >= Image2.Position.X) and
(C.Position.X = Image2.Position.Y) and
(C.Position.Y = 50) do
begin
C.Position.Y := C.Position.Y - 50;
if (C.Position.X >= Image2.Position.X) and
(C.Position.X = Image2.Position.Y) and
(C.Position.Y Image1.Position.X) and
(Ellipse2.Position.X < Image1.Position.X + Image1.Width) and
(Ellipse2.Position.Y > Image1.Position.Y) and
(Ellipse2.Position.Y < Image1.Position.Y + Image1.Height) then
begin
blue := blue + 1;
Label2.Text := IntToStr(blue);
end;
end;

// tanks move
procedure TForm2.Timer1Timer(Sender: TObject);
begin
try
Image1.Position.X := Image1.Position.X + s * cos(DegToRad(u - 90));
Image1.Position.Y := Image1.Position.Y + s * sin(DegToRad(u - 90));
// за рамки
if Image1.Position.X = Panel4.Width then
Image1.Position.X := Panel4.Width - Image1.Width;
if Image1.Position.Y = Panel4.Height then
Image1.Position.Y := Panel4.Height - Image1.Height;
//
IdTCPClient1.Socket.WriteLn(FloatToStrF(Image1.Position.X, ffFixed, 6, 1) +
' ' + FloatToStrF(Image1.Position.Y, ffFixed, 6, 1) + ';' +
FloatToStrF(Image1.RotationAngle, ffFixed, 5, 1));
except
Timer1.Enabled := false;
end;
end;
// topedoRed
procedure TForm2.Timer2Timer(Sender: TObject);
begin
Ellipse1.Position.X := Ellipse1.Position.X + v *
cos(DegToRad(Ellipse1.RotationAngle - 90));
Ellipse1.Position.Y := Ellipse1.Position.Y + v *
sin(DegToRad(Ellipse1.RotationAngle - 90));
// za ramki
if Ellipse1.Position.X < 0 then
Timer2.Enabled := false;
if Ellipse1.Position.X > Panel4.Height then
Timer2.Enabled := false;
if Ellipse1.Position.Y < 0 then
Timer2.Enabled := false;
if Ellipse1.Position.Y > Panel4.Height then
Timer2.Enabled := false;
if (Ellipse1.Position.X > Image2.Position.X) and
(Ellipse1.Position.X < Image2.Position.X + Image2.Width) and
(Ellipse1.Position.Y > Image2.Position.Y) and
(Ellipse1.Position.Y < Image2.Position.Y + Image1.Height) then
begin
red := red + 1;
Label1.Text := IntToStr(red);

end;
IdTCPClient2.Socket.WriteLn(FloatToStrF(Ellipse1.Position.X, ffFixed, 6, 1) +
' ' + FloatToStrF(Ellipse1.Position.Y, ffFixed, 6, 1) + ';' +
FloatToStrF(Ellipse1.RotationAngle, ffFixed, 5, 1));
end;
end.
7. Игра Шахматы локальная.

Для пк и телефона. Правильность ходов не контролируется. Для хода нужно
сначала щелкнуть на фигуру, а потом на свободную клетку. Для сруба нужно
сначала выбрать кого будет есть а потом нажать кнопку удалить и после этого
сделать фигурой, которая срубает.
var
Form1: TForm1;
n: integer;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
if n = 1 then

begin
Image1.Position.Y := -60;
Image1.Visible := false;
end;
if n = 2 then
begin
Image2.Position.Y := -60;
Image2.Visible := false;
end;
if n = 3 then
begin
Image3.Position.Y := -60;
Image3.Visible := false;
end;
if n = 4 then
begin
Image4.Position.Y := -60;
Image4.Visible := false;
end;
if n = 5 then
begin
Image5.Position.Y := -60;
Image5.Visible := false;
end;
if n = 6 then
begin
Image6.Position.Y := -60;
Image6.Visible := false;
end;
if n = 7 then
begin
Image7.Position.Y := -60;
Image7.Visible := false;
end;
if n = 8 then
begin
Image8.Position.Y := -60;
Image8.Visible := false;
end;
if n = 9 then
begin
Image9.Position.Y := -60;
Image9.Visible := false;
end;
if n = 10 then
begin
Image10.Position.Y := -60;
Image10.Visible := false;

end;
if n = 11 then
begin
Image11.Position.Y := -60;
Image11.Visible := false;
end;
if n = 12 then
begin
Image12.Position.Y := -60;
Image12.Visible := false;
end;
if n = 13 then
begin
Image13.Position.Y := -60;
Image13.Visible := false;
end;
if n = 14 then
begin
Image14.Position.Y := -60;
Image14.Visible := false;
end;
if n = 15 then
begin
Image15.Position.Y := -60;
Image15.Visible := false;
end;
if n = 16 then
begin
Image16.Position.Y := -60;
Image16.Visible := false;
end;
if n = 17 then
begin
Image17.Position.Y := -60;
Image17.Visible := false;
end;
if n = 18 then
begin
Image18.Position.Y := -60;
Image18.Visible := false;
end;
if n = 19 then
begin
Image19.Position.Y := -60;
Image19.Visible := false;
end;
if n = 20 then
begin

Image20.Position.Y := -60;
Image20.Visible := false;
end;
if n = 21 then
begin
Image21.Position.Y := -60;
Image21.Visible := false;
end;
if n = 22 then
begin
Image22.Position.Y := -60;
Image22.Visible := false;
end;
if n = 23 then
begin
Image23.Position.Y := -60;
Image23.Visible := false;
end;
if n = 24 then
begin
Image24.Position.Y := -60;
Image24.Visible := false;
end;
if n = 25 then
begin
Image25.Position.Y := -60;
Image25.Visible := false;
end;
if n = 26 then
begin
Image26.Position.Y := -60;
Image26.Visible := false;
end;
if n = 27 then
begin
Image27.Position.Y := -60;
Image27.Visible := false;
end;
if n = 28 then
begin
Image28.Position.Y := -60;
Image28.Visible := false;
end;
if n = 29 then
begin
Image29.Position.Y := -60;
Image29.Visible := false;
end;

if n = 30 then
begin
Image30.Position.Y := -60;
Image30.Visible := false;
end;
if n = 31 then
begin
Image31.Position.Y := -60;
Image31.Visible := false;
end;
if n = 32 then
begin
Image32.Position.Y := -60;
Image32.Visible := false;
end;
end;
procedure TForm1.Image10Click(Sender: TObject);
begin
n := 10;
end;
procedure TForm1.Image11Click(Sender: TObject);
begin
n := 11;
end;
procedure TForm1.Image12Click(Sender: TObject);
begin
n := 12;
end;
procedure TForm1.Image13Click(Sender: TObject);
begin
n := 13;
end;
procedure TForm1.Image14Click(Sender: TObject);
begin
n := 14;
end;
procedure TForm1.Image15Click(Sender: TObject);
begin
n := 15;
end;
procedure TForm1.Image16Click(Sender: TObject);

begin
n := 16;
end;
procedure TForm1.Image17Click(Sender: TObject);
begin
n := 17;
end;
procedure TForm1.Image18Click(Sender: TObject);
begin
n := 18;
end;
procedure TForm1.Image19Click(Sender: TObject);
begin
n := 19;
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
n := 1;
end;
procedure TForm1.Image20Click(Sender: TObject);
begin
n := 20;
end;
procedure TForm1.Image21Click(Sender: TObject);
begin
n := 21;
end;
procedure TForm1.Image22Click(Sender: TObject);
begin
n := 22;
end;
procedure TForm1.Image23Click(Sender: TObject);
begin
n := 23;
end;
procedure TForm1.Image24Click(Sender: TObject);
begin
n := 24;
end;

procedure TForm1.Image25Click(Sender: TObject);
begin
n := 25;
end;
procedure TForm1.Image26Click(Sender: TObject);
begin
n := 26;
end;
procedure TForm1.Image27Click(Sender: TObject);
begin
n := 27;
end;
procedure TForm1.Image28Click(Sender: TObject);
begin
n := 28;
end;
procedure TForm1.Image29Click(Sender: TObject);
begin
n := 29;
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
n := 2;
end;
procedure TForm1.Image30Click(Sender: TObject);
begin
n := 30;
end;
procedure TForm1.Image31Click(Sender: TObject);
begin
n := 31;
end;
procedure TForm1.Image32Click(Sender: TObject);
begin
n := 32;
end;
procedure TForm1.Image3Click(Sender: TObject);
begin

n := 3;
end;
procedure TForm1.Image4Click(Sender: TObject);
begin
n := 4;
end;
procedure TForm1.Image5Click(Sender: TObject);
begin
n := 5;
end;
procedure TForm1.Image6Click(Sender: TObject);
begin
n := 6;
end;
procedure TForm1.Image7Click(Sender: TObject);
begin
n := 7;
end;
procedure TForm1.Image8Click(Sender: TObject);
begin
n := 8;
end;
procedure TForm1.Image9Click(Sender: TObject);
begin
n := 9;
end;
procedure TForm1.Rectangle10Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle10.Position;
if n = 2 then
Image2.Position := Rectangle10.Position;
if n = 3 then
Image3.Position := Rectangle10.Position;
if n = 4 then
Image4.Position := Rectangle10.Position;
if n = 5 then
Image5.Position := Rectangle10.Position;
if n = 6 then
Image6.Position := Rectangle10.Position;
if n = 7 then

Image7.Position := Rectangle10.Position;
if n = 8 then
Image8.Position := Rectangle10.Position;
if n = 9 then
Image9.Position := Rectangle10.Position;
if n = 10 then
Image10.Position := Rectangle10.Position;
if n = 11 then
Image11.Position := Rectangle10.Position;
if n = 12 then
Image12.Position := Rectangle10.Position;
if n = 13 then
Image13.Position := Rectangle10.Position;
if n = 14 then
Image14.Position := Rectangle10.Position;
if n = 15 then
Image15.Position := Rectangle10.Position;
if n = 16 then
Image16.Position := Rectangle10.Position;
if n = 17 then
Image17.Position := Rectangle10.Position;
if n = 18 then
Image18.Position := Rectangle10.Position;
if n = 19 then
Image19.Position := Rectangle10.Position;
if n = 20 then
Image20.Position := Rectangle10.Position;
if n = 21 then
Image21.Position := Rectangle10.Position;
if n = 22 then
Image22.Position := Rectangle10.Position;
if n = 23 then
Image23.Position := Rectangle10.Position;
if n = 24 then
Image24.Position := Rectangle10.Position;
if n = 25 then
Image25.Position := Rectangle10.Position;
if n = 26 then
Image26.Position := Rectangle10.Position;
if n = 27 then
Image27.Position := Rectangle10.Position;
if n = 28 then
Image28.Position := Rectangle10.Position;
if n = 29 then
Image29.Position := Rectangle10.Position;
if n = 30 then
Image30.Position := Rectangle10.Position;
if n = 31 then

Image31.Position := Rectangle10.Position;
if n = 32 then
Image32.Position := Rectangle10.Position;
end;
procedure TForm1.Rectangle11Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle11.Position;
if n = 2 then
Image2.Position := Rectangle11.Position;
if n = 3 then
Image3.Position := Rectangle11.Position;
if n = 4 then
Image4.Position := Rectangle11.Position;
if n = 5 then
Image5.Position := Rectangle11.Position;
if n = 6 then
Image6.Position := Rectangle11.Position;
if n = 7 then
Image7.Position := Rectangle11.Position;
if n = 8 then
Image8.Position := Rectangle11.Position;
if n = 9 then
Image9.Position := Rectangle11.Position;
if n = 10 then
Image10.Position := Rectangle11.Position;
if n = 11 then
Image11.Position := Rectangle11.Position;
if n = 12 then
Image12.Position := Rectangle11.Position;
if n = 13 then
Image13.Position := Rectangle11.Position;
if n = 14 then
Image14.Position := Rectangle11.Position;
if n = 15 then
Image15.Position := Rectangle11.Position;
if n = 16 then
Image16.Position := Rectangle11.Position;
if n = 17 then
Image17.Position := Rectangle11.Position;
if n = 18 then
Image18.Position := Rectangle11.Position;
if n = 19 then
Image19.Position := Rectangle11.Position;
if n = 20 then
Image20.Position := Rectangle11.Position;
if n = 21 then

Image21.Position := Rectangle11.Position;
if n = 22 then
Image22.Position := Rectangle11.Position;
if n = 23 then
Image23.Position := Rectangle11.Position;
if n = 24 then
Image24.Position := Rectangle11.Position;
if n = 25 then
Image25.Position := Rectangle11.Position;
if n = 26 then
Image26.Position := Rectangle11.Position;
if n = 27 then
Image27.Position := Rectangle11.Position;
if n = 28 then
Image28.Position := Rectangle11.Position;
if n = 29 then
Image29.Position := Rectangle11.Position;
if n = 30 then
Image30.Position := Rectangle11.Position;
if n = 31 then
Image31.Position := Rectangle11.Position;
if n = 32 then
Image32.Position := Rectangle11.Position;
end;
procedure TForm1.Rectangle12Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle12.Position;
if n = 2 then
Image2.Position := Rectangle12.Position;
if n = 3 then
Image3.Position := Rectangle12.Position;
if n = 4 then
Image4.Position := Rectangle12.Position;
if n = 5 then
Image5.Position := Rectangle12.Position;
if n = 6 then
Image6.Position := Rectangle12.Position;
if n = 7 then
Image7.Position := Rectangle12.Position;
if n = 8 then
Image8.Position := Rectangle12.Position;
if n = 9 then
Image9.Position := Rectangle12.Position;
if n = 10 then
Image10.Position := Rectangle12.Position;
if n = 11 then

Image11.Position := Rectangle12.Position;
if n = 12 then
Image12.Position := Rectangle12.Position;
if n = 13 then
Image13.Position := Rectangle12.Position;
if n = 14 then
Image14.Position := Rectangle12.Position;
if n = 15 then
Image15.Position := Rectangle12.Position;
if n = 16 then
Image16.Position := Rectangle12.Position;
if n = 17 then
Image17.Position := Rectangle12.Position;
if n = 18 then
Image18.Position := Rectangle12.Position;
if n = 19 then
Image19.Position := Rectangle12.Position;
if n = 20 then
Image20.Position := Rectangle12.Position;
if n = 21 then
Image21.Position := Rectangle12.Position;
if n = 22 then
Image22.Position := Rectangle12.Position;
if n = 23 then
Image23.Position := Rectangle12.Position;
if n = 24 then
Image24.Position := Rectangle12.Position;
if n = 25 then
Image25.Position := Rectangle12.Position;
if n = 26 then
Image26.Position := Rectangle12.Position;
if n = 27 then
Image27.Position := Rectangle12.Position;
if n = 28 then
Image28.Position := Rectangle10.Position;
if n = 29 then
Image29.Position := Rectangle12.Position;
if n = 30 then
Image30.Position := Rectangle12.Position;
if n = 31 then
Image31.Position := Rectangle12.Position;
if n = 32 then
Image32.Position := Rectangle12.Position;
end;
procedure TForm1.Rectangle13Click(Sender: TObject);
begin
if n = 1 then

Image1.Position := Rectangle13.Position;
if n = 2 then
Image2.Position := Rectangle13.Position;
if n = 3 then
Image3.Position := Rectangle13.Position;
if n = 4 then
Image4.Position := Rectangle13.Position;
if n = 5 then
Image5.Position := Rectangle13.Position;
if n = 6 then
Image6.Position := Rectangle13.Position;
if n = 7 then
Image7.Position := Rectangle13.Position;
if n = 8 then
Image8.Position := Rectangle13.Position;
if n = 9 then
Image9.Position := Rectangle13.Position;
if n = 10 then
Image10.Position := Rectangle13.Position;
if n = 11 then
Image11.Position := Rectangle13.Position;
if n = 12 then
Image12.Position := Rectangle13.Position;
if n = 13 then
Image13.Position := Rectangle13.Position;
if n = 14 then
Image14.Position := Rectangle13.Position;
if n = 15 then
Image15.Position := Rectangle13.Position;
if n = 16 then
Image16.Position := Rectangle13.Position;
if n = 17 then
Image17.Position := Rectangle13.Position;
if n = 18 then
Image18.Position := Rectangle13.Position;
if n = 19 then
Image19.Position := Rectangle13.Position;
if n = 20 then
Image20.Position := Rectangle13.Position;
if n = 21 then
Image21.Position := Rectangle13.Position;
if n = 22 then
Image22.Position := Rectangle13.Position;
if n = 23 then
Image23.Position := Rectangle13.Position;
if n = 24 then
Image24.Position := Rectangle13.Position;
if n = 25 then

Image25.Position := Rectangle13.Position;
if n = 26 then
Image26.Position := Rectangle13.Position;
if n = 27 then
Image27.Position := Rectangle13.Position;
if n = 28 then
Image28.Position := Rectangle13.Position;
if n = 29 then
Image29.Position := Rectangle13.Position;
if n = 30 then
Image30.Position := Rectangle13.Position;
if n = 31 then
Image31.Position := Rectangle13.Position;
if n = 32 then
Image32.Position := Rectangle13.Position;
end;
procedure TForm1.Rectangle14Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle14.Position;
if n = 2 then
Image2.Position := Rectangle14.Position;
if n = 3 then
Image3.Position := Rectangle14.Position;
if n = 4 then
Image4.Position := Rectangle14.Position;
if n = 5 then
Image5.Position := Rectangle14.Position;
if n = 6 then
Image6.Position := Rectangle14.Position;
if n = 7 then
Image7.Position := Rectangle14.Position;
if n = 8 then
Image8.Position := Rectangle14.Position;
if n = 9 then
Image9.Position := Rectangle14.Position;
if n = 10 then
Image10.Position := Rectangle14.Position;
if n = 11 then
Image11.Position := Rectangle14.Position;
if n = 12 then
Image12.Position := Rectangle14.Position;
if n = 13 then
Image13.Position := Rectangle14.Position;
if n = 14 then
Image14.Position := Rectangle14.Position;
if n = 15 then

Image15.Position := Rectangle14.Position;
if n = 16 then
Image16.Position := Rectangle14.Position;
if n = 17 then
Image17.Position := Rectangle14.Position;
if n = 18 then
Image18.Position := Rectangle14.Position;
if n = 19 then
Image19.Position := Rectangle14.Position;
if n = 20 then
Image20.Position := Rectangle14.Position;
if n = 21 then
Image21.Position := Rectangle14.Position;
if n = 22 then
Image22.Position := Rectangle14.Position;
if n = 23 then
Image23.Position := Rectangle14.Position;
if n = 24 then
Image24.Position := Rectangle14.Position;
if n = 25 then
Image25.Position := Rectangle14.Position;
if n = 26 then
Image26.Position := Rectangle14.Position;
if n = 27 then
Image27.Position := Rectangle14.Position;
if n = 28 then
Image28.Position := Rectangle14.Position;
if n = 29 then
Image29.Position := Rectangle14.Position;
if n = 30 then
Image30.Position := Rectangle14.Position;
if n = 31 then
Image31.Position := Rectangle14.Position;
if n = 32 then
Image32.Position := Rectangle14.Position;
end;
procedure TForm1.Rectangle15Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle15.Position;
if n = 2 then
Image2.Position := Rectangle15.Position;
if n = 3 then
Image3.Position := Rectangle15.Position;
if n = 4 then
Image4.Position := Rectangle15.Position;
if n = 5 then

Image5.Position := Rectangle15.Position;
if n = 6 then
Image6.Position := Rectangle15.Position;
if n = 7 then
Image7.Position := Rectangle15.Position;
if n = 8 then
Image8.Position := Rectangle15.Position;
if n = 9 then
Image9.Position := Rectangle15.Position;
if n = 10 then
Image10.Position := Rectangle15.Position;
if n = 11 then
Image11.Position := Rectangle15.Position;
if n = 12 then
Image12.Position := Rectangle15.Position;
if n = 13 then
Image13.Position := Rectangle15.Position;
if n = 14 then
Image14.Position := Rectangle15.Position;
if n = 15 then
Image15.Position := Rectangle15.Position;
if n = 16 then
Image16.Position := Rectangle15.Position;
if n = 17 then
Image17.Position := Rectangle15.Position;
if n = 18 then
Image18.Position := Rectangle15.Position;
if n = 19 then
Image19.Position := Rectangle15.Position;
if n = 20 then
Image20.Position := Rectangle15.Position;
if n = 21 then
Image21.Position := Rectangle15.Position;
if n = 22 then
Image22.Position := Rectangle15.Position;
if n = 23 then
Image23.Position := Rectangle15.Position;
if n = 24 then
Image24.Position := Rectangle15.Position;
if n = 25 then
Image25.Position := Rectangle15.Position;
if n = 26 then
Image26.Position := Rectangle15.Position;
if n = 27 then
Image27.Position := Rectangle15.Position;
if n = 28 then
Image28.Position := Rectangle15.Position;
if n = 29 then

Image29.Position := Rectangle15.Position;
if n = 30 then
Image30.Position := Rectangle15.Position;
if n = 31 then
Image31.Position := Rectangle15.Position;
if n = 32 then
Image32.Position := Rectangle15.Position;
end;
procedure TForm1.Rectangle16Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle16.Position;
if n = 2 then
Image2.Position := Rectangle16.Position;
if n = 3 then
Image3.Position := Rectangle16.Position;
if n = 4 then
Image4.Position := Rectangle16.Position;
if n = 5 then
Image5.Position := Rectangle16.Position;
if n = 6 then
Image6.Position := Rectangle16.Position;
if n = 7 then
Image7.Position := Rectangle16.Position;
if n = 8 then
Image8.Position := Rectangle16.Position;
if n = 9 then
Image9.Position := Rectangle16.Position;
if n = 10 then
Image10.Position := Rectangle16.Position;
if n = 11 then
Image11.Position := Rectangle16.Position;
if n = 12 then
Image12.Position := Rectangle16.Position;
if n = 13 then
Image13.Position := Rectangle16.Position;
if n = 14 then
Image14.Position := Rectangle16.Position;
if n = 15 then
Image15.Position := Rectangle16.Position;
if n = 16 then
Image16.Position := Rectangle16.Position;
if n = 17 then
Image17.Position := Rectangle16.Position;
if n = 18 then
Image18.Position := Rectangle16.Position;
if n = 19 then

Image19.Position := Rectangle16.Position;
if n = 20 then
Image20.Position := Rectangle16.Position;
if n = 21 then
Image21.Position := Rectangle16.Position;
if n = 22 then
Image22.Position := Rectangle16.Position;
if n = 23 then
Image23.Position := Rectangle16.Position;
if n = 24 then
Image24.Position := Rectangle16.Position;
if n = 25 then
Image25.Position := Rectangle16.Position;
if n = 26 then
Image26.Position := Rectangle16.Position;
if n = 27 then
Image27.Position := Rectangle16.Position;
if n = 28 then
Image28.Position := Rectangle16.Position;
if n = 29 then
Image29.Position := Rectangle16.Position;
if n = 30 then
Image30.Position := Rectangle16.Position;
if n = 31 then
Image31.Position := Rectangle16.Position;
if n = 32 then
Image32.Position := Rectangle16.Position;
end;
procedure TForm1.Rectangle17Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle17.Position;
if n = 2 then
Image2.Position := Rectangle17.Position;
if n = 3 then
Image3.Position := Rectangle17.Position;
if n = 4 then
Image4.Position := Rectangle17.Position;
if n = 5 then
Image5.Position := Rectangle17.Position;
if n = 6 then
Image6.Position := Rectangle17.Position;
if n = 7 then
Image7.Position := Rectangle17.Position;
if n = 8 then
Image8.Position := Rectangle17.Position;
if n = 9 then

Image9.Position := Rectangle17.Position;
if n = 10 then
Image10.Position := Rectangle17.Position;
if n = 11 then
Image11.Position := Rectangle17.Position;
if n = 12 then
Image12.Position := Rectangle17.Position;
if n = 13 then
Image13.Position := Rectangle17.Position;
if n = 14 then
Image14.Position := Rectangle17.Position;
if n = 15 then
Image15.Position := Rectangle17.Position;
if n = 16 then
Image16.Position := Rectangle17.Position;
if n = 17 then
Image17.Position := Rectangle17.Position;
if n = 18 then
Image18.Position := Rectangle17.Position;
if n = 19 then
Image19.Position := Rectangle17.Position;
if n = 20 then
Image20.Position := Rectangle17.Position;
if n = 21 then
Image21.Position := Rectangle17.Position;
if n = 22 then
Image22.Position := Rectangle17.Position;
if n = 23 then
Image23.Position := Rectangle17.Position;
if n = 24 then
Image24.Position := Rectangle17.Position;
if n = 25 then
Image25.Position := Rectangle17.Position;
if n = 26 then
Image26.Position := Rectangle17.Position;
if n = 27 then
Image27.Position := Rectangle17.Position;
if n = 28 then
Image28.Position := Rectangle17.Position;
if n = 29 then
Image29.Position := Rectangle17.Position;
if n = 30 then
Image30.Position := Rectangle17.Position;
if n = 31 then
Image31.Position := Rectangle17.Position;
if n = 32 then
Image32.Position := Rectangle17.Position;
end;

procedure TForm1.Rectangle18Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle18.Position;
if n = 2 then
Image2.Position := Rectangle18.Position;
if n = 3 then
Image3.Position := Rectangle18.Position;
if n = 4 then
Image4.Position := Rectangle18.Position;
if n = 5 then
Image5.Position := Rectangle18.Position;
if n = 6 then
Image6.Position := Rectangle18.Position;
if n = 7 then
Image7.Position := Rectangle18.Position;
if n = 8 then
Image8.Position := Rectangle18.Position;
if n = 9 then
Image9.Position := Rectangle18.Position;
if n = 10 then
Image10.Position := Rectangle18.Position;
if n = 11 then
Image11.Position := Rectangle18.Position;
if n = 12 then
Image12.Position := Rectangle18.Position;
if n = 13 then
Image13.Position := Rectangle18.Position;
if n = 14 then
Image14.Position := Rectangle18.Position;
if n = 15 then
Image15.Position := Rectangle18.Position;
if n = 16 then
Image16.Position := Rectangle18.Position;
if n = 17 then
Image17.Position := Rectangle18.Position;
if n = 18 then
Image18.Position := Rectangle18.Position;
if n = 19 then
Image19.Position := Rectangle18.Position;
if n = 20 then
Image20.Position := Rectangle18.Position;
if n = 21 then
Image21.Position := Rectangle18.Position;
if n = 22 then
Image22.Position := Rectangle18.Position;
if n = 23 then

Image23.Position := Rectangle18.Position;
if n = 24 then
Image24.Position := Rectangle18.Position;
if n = 25 then
Image25.Position := Rectangle18.Position;
if n = 26 then
Image26.Position := Rectangle18.Position;
if n = 27 then
Image27.Position := Rectangle18.Position;
if n = 28 then
Image28.Position := Rectangle18.Position;
if n = 29 then
Image29.Position := Rectangle18.Position;
if n = 30 then
Image30.Position := Rectangle18.Position;
if n = 31 then
Image31.Position := Rectangle18.Position;
if n = 32 then
Image32.Position := Rectangle18.Position;
end;
procedure TForm1.Rectangle19Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle19.Position;
if n = 2 then
Image2.Position := Rectangle19.Position;
if n = 3 then
Image3.Position := Rectangle19.Position;
if n = 4 then
Image4.Position := Rectangle19.Position;
if n = 5 then
Image5.Position := Rectangle19.Position;
if n = 6 then
Image6.Position := Rectangle19.Position;
if n = 7 then
Image7.Position := Rectangle19.Position;
if n = 8 then
Image8.Position := Rectangle19.Position;
if n = 9 then
Image9.Position := Rectangle19.Position;
if n = 10 then
Image10.Position := Rectangle19.Position;
if n = 11 then
Image11.Position := Rectangle19.Position;
if n = 12 then
Image12.Position := Rectangle19.Position;
if n = 13 then

Image13.Position := Rectangle19.Position;
if n = 14 then
Image14.Position := Rectangle19.Position;
if n = 15 then
Image15.Position := Rectangle19.Position;
if n = 16 then
Image16.Position := Rectangle19.Position;
if n = 17 then
Image17.Position := Rectangle19.Position;
if n = 18 then
Image18.Position := Rectangle19.Position;
if n = 19 then
Image19.Position := Rectangle19.Position;
if n = 20 then
Image20.Position := Rectangle19.Position;
if n = 21 then
Image21.Position := Rectangle19.Position;
if n = 22 then
Image22.Position := Rectangle19.Position;
if n = 23 then
Image23.Position := Rectangle19.Position;
if n = 24 then
Image24.Position := Rectangle19.Position;
if n = 25 then
Image25.Position := Rectangle19.Position;
if n = 26 then
Image26.Position := Rectangle19.Position;
if n = 27 then
Image27.Position := Rectangle19.Position;
if n = 28 then
Image28.Position := Rectangle19.Position;
if n = 29 then
Image29.Position := Rectangle19.Position;
if n = 30 then
Image30.Position := Rectangle19.Position;
if n = 31 then
Image31.Position := Rectangle19.Position;
if n = 32 then
Image32.Position := Rectangle19.Position;
end;
procedure TForm1.Rectangle1Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle1.Position;
if n = 2 then
Image2.Position := Rectangle1.Position;
if n = 3 then

Image3.Position := Rectangle1.Position;
if n = 4 then
Image4.Position := Rectangle1.Position;
if n = 5 then
Image5.Position := Rectangle1.Position;
if n = 6 then
Image6.Position := Rectangle1.Position;
if n = 7 then
Image7.Position := Rectangle1.Position;
if n = 8 then
Image8.Position := Rectangle1.Position;
if n = 9 then
Image9.Position := Rectangle1.Position;
if n = 10 then
Image10.Position := Rectangle1.Position;
if n = 11 then
Image11.Position := Rectangle1.Position;
if n = 12 then
Image12.Position := Rectangle1.Position;
if n = 13 then
Image13.Position := Rectangle1.Position;
if n = 14 then
Image14.Position := Rectangle1.Position;
if n = 15 then
Image15.Position := Rectangle1.Position;
if n = 16 then
Image16.Position := Rectangle1.Position;
if n = 17 then
Image17.Position := Rectangle1.Position;
if n = 18 then
Image18.Position := Rectangle1.Position;
if n = 19 then
Image19.Position := Rectangle1.Position;
if n = 20 then
Image20.Position := Rectangle1.Position;
if n = 21 then
Image21.Position := Rectangle1.Position;
if n = 22 then
Image22.Position := Rectangle1.Position;
if n = 23 then
Image23.Position := Rectangle1.Position;
if n = 24 then
Image24.Position := Rectangle1.Position;
if n = 25 then
Image25.Position := Rectangle1.Position;
if n = 26 then
Image26.Position := Rectangle1.Position;
if n = 27 then

Image27.Position := Rectangle1.Position;
if n = 28 then
Image28.Position := Rectangle1.Position;
if n = 29 then
Image29.Position := Rectangle1.Position;
if n = 30 then
Image30.Position := Rectangle1.Position;
if n = 31 then
Image31.Position := Rectangle1.Position;
if n = 32 then
Image32.Position := Rectangle1.Position;
end;
procedure TForm1.Rectangle20Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle20.Position;
if n = 2 then
Image2.Position := Rectangle20.Position;
if n = 3 then
Image3.Position := Rectangle20.Position;
if n = 4 then
Image4.Position := Rectangle20.Position;
if n = 5 then
Image5.Position := Rectangle20.Position;
if n = 6 then
Image6.Position := Rectangle20.Position;
if n = 7 then
Image7.Position := Rectangle20.Position;
if n = 8 then
Image8.Position := Rectangle20.Position;
if n = 9 then
Image9.Position := Rectangle20.Position;
if n = 10 then
Image10.Position := Rectangle20.Position;
if n = 11 then
Image11.Position := Rectangle20.Position;
if n = 12 then
Image12.Position := Rectangle20.Position;
if n = 13 then
Image13.Position := Rectangle20.Position;
if n = 14 then
Image14.Position := Rectangle20.Position;
if n = 15 then
Image15.Position := Rectangle20.Position;
if n = 16 then
Image16.Position := Rectangle20.Position;
if n = 17 then

Image17.Position := Rectangle20.Position;
if n = 18 then
Image18.Position := Rectangle20.Position;
if n = 19 then
Image19.Position := Rectangle20.Position;
if n = 20 then
Image20.Position := Rectangle20.Position;
if n = 21 then
Image21.Position := Rectangle20.Position;
if n = 22 then
Image22.Position := Rectangle20.Position;
if n = 23 then
Image23.Position := Rectangle20.Position;
if n = 24 then
Image24.Position := Rectangle20.Position;
if n = 25 then
Image25.Position := Rectangle20.Position;
if n = 26 then
Image26.Position := Rectangle20.Position;
if n = 27 then
Image27.Position := Rectangle20.Position;
if n = 28 then
Image28.Position := Rectangle20.Position;
if n = 29 then
Image29.Position := Rectangle20.Position;
if n = 30 then
Image30.Position := Rectangle20.Position;
if n = 31 then
Image31.Position := Rectangle20.Position;
if n = 32 then
Image32.Position := Rectangle20.Position;
end;
procedure TForm1.Rectangle21Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle21.Position;
if n = 2 then
Image2.Position := Rectangle21.Position;
if n = 3 then
Image3.Position := Rectangle21.Position;
if n = 4 then
Image4.Position := Rectangle21.Position;
if n = 5 then
Image5.Position := Rectangle21.Position;
if n = 6 then
Image6.Position := Rectangle21.Position;
if n = 7 then

Image7.Position := Rectangle21.Position;
if n = 8 then
Image8.Position := Rectangle21.Position;
if n = 9 then
Image9.Position := Rectangle21.Position;
if n = 10 then
Image10.Position := Rectangle21.Position;
if n = 11 then
Image11.Position := Rectangle21.Position;
if n = 12 then
Image12.Position := Rectangle21.Position;
if n = 13 then
Image13.Position := Rectangle21.Position;
if n = 14 then
Image14.Position := Rectangle21.Position;
if n = 15 then
Image15.Position := Rectangle21.Position;
if n = 16 then
Image16.Position := Rectangle21.Position;
if n = 17 then
Image17.Position := Rectangle21.Position;
if n = 18 then
Image18.Position := Rectangle21.Position;
if n = 19 then
Image19.Position := Rectangle21.Position;
if n = 20 then
Image20.Position := Rectangle21.Position;
if n = 21 then
Image21.Position := Rectangle21.Position;
if n = 22 then
Image22.Position := Rectangle21.Position;
if n = 23 then
Image23.Position := Rectangle21.Position;
if n = 24 then
Image24.Position := Rectangle21.Position;
if n = 25 then
Image25.Position := Rectangle21.Position;
if n = 26 then
Image26.Position := Rectangle21.Position;
if n = 27 then
Image27.Position := Rectangle21.Position;
if n = 28 then
Image28.Position := Rectangle21.Position;
if n = 29 then
Image29.Position := Rectangle21.Position;
if n = 30 then
Image30.Position := Rectangle21.Position;
if n = 31 then

Image31.Position := Rectangle21.Position;
if n = 32 then
Image32.Position := Rectangle21.Position;
end;
procedure TForm1.Rectangle22Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle22.Position;
if n = 2 then
Image2.Position := Rectangle22.Position;
if n = 3 then
Image3.Position := Rectangle22.Position;
if n = 4 then
Image4.Position := Rectangle22.Position;
if n = 5 then
Image5.Position := Rectangle22.Position;
if n = 6 then
Image6.Position := Rectangle22.Position;
if n = 7 then
Image7.Position := Rectangle22.Position;
if n = 8 then
Image8.Position := Rectangle22.Position;
if n = 9 then
Image9.Position := Rectangle22.Position;
if n = 10 then
Image10.Position := Rectangle22.Position;
if n = 11 then
Image11.Position := Rectangle22.Position;
if n = 12 then
Image12.Position := Rectangle22.Position;
if n = 13 then
Image13.Position := Rectangle22.Position;
if n = 14 then
Image14.Position := Rectangle22.Position;
if n = 15 then
Image15.Position := Rectangle22.Position;
if n = 16 then
Image16.Position := Rectangle22.Position;
if n = 17 then
Image17.Position := Rectangle22.Position;
if n = 18 then
Image18.Position := Rectangle22.Position;
if n = 19 then
Image19.Position := Rectangle22.Position;
if n = 20 then
Image20.Position := Rectangle22.Position;
if n = 21 then

Image21.Position := Rectangle22.Position;
if n = 22 then
Image22.Position := Rectangle22.Position;
if n = 23 then
Image23.Position := Rectangle22.Position;
if n = 24 then
Image24.Position := Rectangle22.Position;
if n = 25 then
Image25.Position := Rectangle22.Position;
if n = 26 then
Image26.Position := Rectangle22.Position;
if n = 27 then
Image27.Position := Rectangle22.Position;
if n = 28 then
Image28.Position := Rectangle22.Position;
if n = 29 then
Image29.Position := Rectangle22.Position;
if n = 30 then
Image30.Position := Rectangle22.Position;
if n = 31 then
Image31.Position := Rectangle22.Position;
if n = 32 then
Image32.Position := Rectangle22.Position;
end;
procedure TForm1.Rectangle23Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle23.Position;
if n = 2 then
Image2.Position := Rectangle23.Position;
if n = 3 then
Image3.Position := Rectangle23.Position;
if n = 4 then
Image4.Position := Rectangle23.Position;
if n = 5 then
Image5.Position := Rectangle23.Position;
if n = 6 then
Image6.Position := Rectangle23.Position;
if n = 7 then
Image7.Position := Rectangle23.Position;
if n = 8 then
Image8.Position := Rectangle23.Position;
if n = 9 then
Image9.Position := Rectangle23.Position;
if n = 10 then
Image10.Position := Rectangle23.Position;
if n = 11 then

Image11.Position := Rectangle23.Position;
if n = 12 then
Image12.Position := Rectangle23.Position;
if n = 13 then
Image13.Position := Rectangle23.Position;
if n = 14 then
Image14.Position := Rectangle23.Position;
if n = 15 then
Image15.Position := Rectangle23.Position;
if n = 16 then
Image16.Position := Rectangle23.Position;
if n = 17 then
Image17.Position := Rectangle23.Position;
if n = 18 then
Image18.Position := Rectangle23.Position;
if n = 19 then
Image19.Position := Rectangle23.Position;
if n = 20 then
Image20.Position := Rectangle23.Position;
if n = 21 then
Image21.Position := Rectangle23.Position;
if n = 22 then
Image22.Position := Rectangle23.Position;
if n = 23 then
Image23.Position := Rectangle23.Position;
if n = 24 then
Image24.Position := Rectangle23.Position;
if n = 25 then
Image25.Position := Rectangle23.Position;
if n = 26 then
Image26.Position := Rectangle23.Position;
if n = 27 then
Image27.Position := Rectangle23.Position;
if n = 28 then
Image28.Position := Rectangle23.Position;
if n = 29 then
Image29.Position := Rectangle23.Position;
if n = 30 then
Image30.Position := Rectangle23.Position;
if n = 31 then
Image31.Position := Rectangle23.Position;
if n = 32 then
Image32.Position := Rectangle23.Position;
end;
procedure TForm1.Rectangle24Click(Sender: TObject);
begin
if n = 1 then

Image1.Position := Rectangle24.Position;
if n = 2 then
Image2.Position := Rectangle24.Position;
if n = 3 then
Image3.Position := Rectangle24.Position;
if n = 4 then
Image4.Position := Rectangle24.Position;
if n = 5 then
Image5.Position := Rectangle24.Position;
if n = 6 then
Image6.Position := Rectangle24.Position;
if n = 7 then
Image7.Position := Rectangle24.Position;
if n = 8 then
Image8.Position := Rectangle24.Position;
if n = 9 then
Image9.Position := Rectangle24.Position;
if n = 10 then
Image10.Position := Rectangle24.Position;
if n = 11 then
Image11.Position := Rectangle24.Position;
if n = 12 then
Image12.Position := Rectangle24.Position;
if n = 13 then
Image13.Position := Rectangle24.Position;
if n = 14 then
Image14.Position := Rectangle24.Position;
if n = 15 then
Image15.Position := Rectangle24.Position;
if n = 16 then
Image16.Position := Rectangle24.Position;
if n = 17 then
Image17.Position := Rectangle24.Position;
if n = 18 then
Image18.Position := Rectangle24.Position;
if n = 19 then
Image19.Position := Rectangle24.Position;
if n = 20 then
Image20.Position := Rectangle24.Position;
if n = 21 then
Image21.Position := Rectangle24.Position;
if n = 22 then
Image22.Position := Rectangle24.Position;
if n = 23 then
Image23.Position := Rectangle24.Position;
if n = 24 then
Image24.Position := Rectangle24.Position;
if n = 25 then

Image25.Position := Rectangle24.Position;
if n = 26 then
Image26.Position := Rectangle24.Position;
if n = 27 then
Image27.Position := Rectangle24.Position;
if n = 28 then
Image28.Position := Rectangle24.Position;
if n = 29 then
Image29.Position := Rectangle24.Position;
if n = 30 then
Image30.Position := Rectangle24.Position;
if n = 31 then
Image31.Position := Rectangle24.Position;
if n = 32 then
Image32.Position := Rectangle24.Position;
end;
procedure TForm1.Rectangle25Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle25.Position;
if n = 2 then
Image2.Position := Rectangle25.Position;
if n = 3 then
Image3.Position := Rectangle25.Position;
if n = 4 then
Image4.Position := Rectangle25.Position;
if n = 5 then
Image5.Position := Rectangle25.Position;
if n = 6 then
Image6.Position := Rectangle25.Position;
if n = 7 then
Image7.Position := Rectangle25.Position;
if n = 8 then
Image8.Position := Rectangle25.Position;
if n = 9 then
Image9.Position := Rectangle25.Position;
if n = 10 then
Image10.Position := Rectangle25.Position;
if n = 11 then
Image11.Position := Rectangle25.Position;
if n = 12 then
Image12.Position := Rectangle25.Position;
if n = 13 then
Image13.Position := Rectangle25.Position;
if n = 14 then
Image14.Position := Rectangle25.Position;
if n = 15 then

Image15.Position := Rectangle25.Position;
if n = 16 then
Image16.Position := Rectangle25.Position;
if n = 17 then
Image17.Position := Rectangle25.Position;
if n = 18 then
Image18.Position := Rectangle25.Position;
if n = 19 then
Image19.Position := Rectangle25.Position;
if n = 20 then
Image20.Position := Rectangle25.Position;
if n = 21 then
Image21.Position := Rectangle25.Position;
if n = 22 then
Image22.Position := Rectangle25.Position;
if n = 23 then
Image23.Position := Rectangle25.Position;
if n = 24 then
Image24.Position := Rectangle25.Position;
if n = 25 then
Image25.Position := Rectangle25.Position;
if n = 26 then
Image26.Position := Rectangle25.Position;
if n = 27 then
Image27.Position := Rectangle25.Position;
if n = 28 then
Image28.Position := Rectangle25.Position;
if n = 29 then
Image29.Position := Rectangle25.Position;
if n = 30 then
Image30.Position := Rectangle25.Position;
if n = 31 then
Image31.Position := Rectangle25.Position;
if n = 32 then
Image32.Position := Rectangle25.Position;
end;
procedure TForm1.Rectangle26Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle26.Position;
if n = 2 then
Image2.Position := Rectangle26.Position;
if n = 3 then
Image3.Position := Rectangle26.Position;
if n = 4 then
Image4.Position := Rectangle26.Position;
if n = 5 then

Image5.Position := Rectangle26.Position;
if n = 6 then
Image6.Position := Rectangle26.Position;
if n = 7 then
Image7.Position := Rectangle26.Position;
if n = 8 then
Image8.Position := Rectangle26.Position;
if n = 9 then
Image9.Position := Rectangle26.Position;
if n = 10 then
Image10.Position := Rectangle26.Position;
if n = 11 then
Image11.Position := Rectangle26.Position;
if n = 12 then
Image12.Position := Rectangle26.Position;
if n = 13 then
Image13.Position := Rectangle26.Position;
if n = 14 then
Image14.Position := Rectangle26.Position;
if n = 15 then
Image15.Position := Rectangle26.Position;
if n = 16 then
Image16.Position := Rectangle26.Position;
if n = 17 then
Image17.Position := Rectangle26.Position;
if n = 18 then
Image18.Position := Rectangle26.Position;
if n = 19 then
Image19.Position := Rectangle26.Position;
if n = 20 then
Image20.Position := Rectangle26.Position;
if n = 21 then
Image21.Position := Rectangle26.Position;
if n = 22 then
Image22.Position := Rectangle26.Position;
if n = 23 then
Image23.Position := Rectangle26.Position;
if n = 24 then
Image24.Position := Rectangle26.Position;
if n = 25 then
Image25.Position := Rectangle26.Position;
if n = 26 then
Image26.Position := Rectangle26.Position;
if n = 27 then
Image27.Position := Rectangle26.Position;
if n = 28 then
Image28.Position := Rectangle26.Position;
if n = 29 then

Image29.Position := Rectangle26.Position;
if n = 30 then
Image30.Position := Rectangle26.Position;
if n = 31 then
Image31.Position := Rectangle26.Position;
if n = 32 then
Image32.Position := Rectangle26.Position;
end;
procedure TForm1.Rectangle27Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle27.Position;
if n = 2 then
Image2.Position := Rectangle27.Position;
if n = 3 then
Image3.Position := Rectangle27.Position;
if n = 4 then
Image4.Position := Rectangle27.Position;
if n = 5 then
Image5.Position := Rectangle27.Position;
if n = 6 then
Image6.Position := Rectangle27.Position;
if n = 7 then
Image7.Position := Rectangle27.Position;
if n = 8 then
Image8.Position := Rectangle27.Position;
if n = 9 then
Image9.Position := Rectangle27.Position;
if n = 10 then
Image10.Position := Rectangle27.Position;
if n = 11 then
Image11.Position := Rectangle27.Position;
if n = 12 then
Image12.Position := Rectangle27.Position;
if n = 13 then
Image13.Position := Rectangle27.Position;
if n = 14 then
Image14.Position := Rectangle27.Position;
if n = 15 then
Image15.Position := Rectangle27.Position;
if n = 16 then
Image16.Position := Rectangle27.Position;
if n = 17 then
Image17.Position := Rectangle27.Position;
if n = 18 then
Image18.Position := Rectangle27.Position;
if n = 19 then

Image19.Position := Rectangle27.Position;
if n = 20 then
Image20.Position := Rectangle27.Position;
if n = 21 then
Image21.Position := Rectangle27.Position;
if n = 22 then
Image22.Position := Rectangle27.Position;
if n = 23 then
Image23.Position := Rectangle27.Position;
if n = 24 then
Image24.Position := Rectangle27.Position;
if n = 25 then
Image25.Position := Rectangle27.Position;
if n = 26 then
Image26.Position := Rectangle27.Position;
if n = 27 then
Image27.Position := Rectangle27.Position;
if n = 28 then
Image28.Position := Rectangle27.Position;
if n = 29 then
Image29.Position := Rectangle27.Position;
if n = 30 then
Image30.Position := Rectangle27.Position;
if n = 31 then
Image31.Position := Rectangle27.Position;
if n = 32 then
Image32.Position := Rectangle27.Position;
end;
procedure TForm1.Rectangle28Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle28.Position;
if n = 2 then
Image2.Position := Rectangle28.Position;
if n = 3 then
Image3.Position := Rectangle28.Position;
if n = 4 then
Image4.Position := Rectangle28.Position;
if n = 5 then
Image5.Position := Rectangle28.Position;
if n = 6 then
Image6.Position := Rectangle28.Position;
if n = 7 then
Image7.Position := Rectangle28.Position;
if n = 8 then
Image8.Position := Rectangle28.Position;
if n = 9 then

Image9.Position := Rectangle28.Position;
if n = 10 then
Image10.Position := Rectangle28.Position;
if n = 11 then
Image11.Position := Rectangle28.Position;
if n = 12 then
Image12.Position := Rectangle28.Position;
if n = 13 then
Image13.Position := Rectangle28.Position;
if n = 14 then
Image14.Position := Rectangle28.Position;
if n = 15 then
Image15.Position := Rectangle28.Position;
if n = 16 then
Image16.Position := Rectangle28.Position;
if n = 17 then
Image17.Position := Rectangle28.Position;
if n = 18 then
Image18.Position := Rectangle28.Position;
if n = 19 then
Image19.Position := Rectangle28.Position;
if n = 20 then
Image20.Position := Rectangle28.Position;
if n = 21 then
Image21.Position := Rectangle28.Position;
if n = 22 then
Image22.Position := Rectangle28.Position;
if n = 23 then
Image23.Position := Rectangle28.Position;
if n = 24 then
Image24.Position := Rectangle28.Position;
if n = 25 then
Image25.Position := Rectangle28.Position;
if n = 26 then
Image26.Position := Rectangle28.Position;
if n = 27 then
Image27.Position := Rectangle28.Position;
if n = 28 then
Image28.Position := Rectangle28.Position;
if n = 29 then
Image29.Position := Rectangle28.Position;
if n = 30 then
Image30.Position := Rectangle28.Position;
if n = 31 then
Image31.Position := Rectangle28.Position;
if n = 32 then
Image32.Position := Rectangle28.Position;
end;

procedure TForm1.Rectangle29Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle29.Position;
if n = 2 then
Image2.Position := Rectangle29.Position;
if n = 3 then
Image3.Position := Rectangle29.Position;
if n = 4 then
Image4.Position := Rectangle29.Position;
if n = 5 then
Image5.Position := Rectangle29.Position;
if n = 6 then
Image6.Position := Rectangle29.Position;
if n = 7 then
Image7.Position := Rectangle29.Position;
if n = 8 then
Image8.Position := Rectangle29.Position;
if n = 9 then
Image9.Position := Rectangle29.Position;
if n = 10 then
Image10.Position := Rectangle29.Position;
if n = 11 then
Image11.Position := Rectangle29.Position;
if n = 12 then
Image12.Position := Rectangle29.Position;
if n = 13 then
Image13.Position := Rectangle29.Position;
if n = 14 then
Image14.Position := Rectangle29.Position;
if n = 15 then
Image15.Position := Rectangle29.Position;
if n = 16 then
Image16.Position := Rectangle29.Position;
if n = 17 then
Image17.Position := Rectangle29.Position;
if n = 18 then
Image18.Position := Rectangle29.Position;
if n = 19 then
Image19.Position := Rectangle29.Position;
if n = 20 then
Image20.Position := Rectangle29.Position;
if n = 21 then
Image21.Position := Rectangle29.Position;
if n = 22 then
Image22.Position := Rectangle29.Position;
if n = 23 then

Image23.Position := Rectangle29.Position;
if n = 24 then
Image24.Position := Rectangle29.Position;
if n = 25 then
Image25.Position := Rectangle29.Position;
if n = 26 then
Image26.Position := Rectangle29.Position;
if n = 27 then
Image27.Position := Rectangle29.Position;
if n = 28 then
Image28.Position := Rectangle29.Position;
if n = 29 then
Image29.Position := Rectangle29.Position;
if n = 30 then
Image30.Position := Rectangle29.Position;
if n = 31 then
Image31.Position := Rectangle29.Position;
if n = 32 then
Image32.Position := Rectangle29.Position;
end;
procedure TForm1.Rectangle2Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle2.Position;
if n = 2 then
Image2.Position := Rectangle2.Position;
if n = 3 then
Image3.Position := Rectangle2.Position;
if n = 4 then
Image4.Position := Rectangle2.Position;
if n = 5 then
Image5.Position := Rectangle2.Position;
if n = 6 then
Image6.Position := Rectangle2.Position;
if n = 7 then
Image7.Position := Rectangle2.Position;
if n = 8 then
Image8.Position := Rectangle2.Position;
if n = 9 then
Image9.Position := Rectangle2.Position;
if n = 10 then
Image10.Position := Rectangle2.Position;
if n = 11 then
Image11.Position := Rectangle2.Position;
if n = 12 then
Image12.Position := Rectangle2.Position;
if n = 13 then

Image13.Position := Rectangle2.Position;
if n = 14 then
Image14.Position := Rectangle2.Position;
if n = 15 then
Image15.Position := Rectangle2.Position;
if n = 16 then
Image16.Position := Rectangle2.Position;
if n = 17 then
Image17.Position := Rectangle2.Position;
if n = 18 then
Image18.Position := Rectangle2.Position;
if n = 19 then
Image19.Position := Rectangle2.Position;
if n = 20 then
Image20.Position := Rectangle2.Position;
if n = 21 then
Image21.Position := Rectangle2.Position;
if n = 22 then
Image22.Position := Rectangle2.Position;
if n = 23 then
Image23.Position := Rectangle2.Position;
if n = 24 then
Image24.Position := Rectangle2.Position;
if n = 25 then
Image25.Position := Rectangle2.Position;
if n = 26 then
Image26.Position := Rectangle2.Position;
if n = 27 then
Image27.Position := Rectangle2.Position;
if n = 28 then
Image28.Position := Rectangle2.Position;
if n = 29 then
Image29.Position := Rectangle2.Position;
if n = 30 then
Image30.Position := Rectangle2.Position;
if n = 31 then
Image31.Position := Rectangle2.Position;
if n = 32 then
Image32.Position := Rectangle2.Position;
end;
procedure TForm1.Rectangle30Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle30.Position;
if n = 2 then
Image2.Position := Rectangle30.Position;
if n = 3 then

Image3.Position := Rectangle30.Position;
if n = 4 then
Image4.Position := Rectangle30.Position;
if n = 5 then
Image5.Position := Rectangle30.Position;
if n = 6 then
Image6.Position := Rectangle30.Position;
if n = 7 then
Image7.Position := Rectangle30.Position;
if n = 8 then
Image8.Position := Rectangle30.Position;
if n = 9 then
Image9.Position := Rectangle30.Position;
if n = 10 then
Image10.Position := Rectangle30.Position;
if n = 11 then
Image11.Position := Rectangle30.Position;
if n = 12 then
Image12.Position := Rectangle30.Position;
if n = 13 then
Image13.Position := Rectangle30.Position;
if n = 14 then
Image14.Position := Rectangle30.Position;
if n = 15 then
Image15.Position := Rectangle30.Position;
if n = 16 then
Image16.Position := Rectangle30.Position;
if n = 17 then
Image17.Position := Rectangle30.Position;
if n = 18 then
Image18.Position := Rectangle30.Position;
if n = 19 then
Image19.Position := Rectangle30.Position;
if n = 20 then
Image20.Position := Rectangle30.Position;
if n = 21 then
Image21.Position := Rectangle30.Position;
if n = 22 then
Image22.Position := Rectangle30.Position;
if n = 23 then
Image23.Position := Rectangle30.Position;
if n = 24 then
Image24.Position := Rectangle30.Position;
if n = 25 then
Image25.Position := Rectangle30.Position;
if n = 26 then
Image26.Position := Rectangle30.Position;
if n = 27 then

Image27.Position := Rectangle30.Position;
if n = 28 then
Image28.Position := Rectangle30.Position;
if n = 29 then
Image29.Position := Rectangle30.Position;
if n = 30 then
Image30.Position := Rectangle30.Position;
if n = 31 then
Image31.Position := Rectangle30.Position;
if n = 32 then
Image32.Position := Rectangle30.Position;
end;
procedure TForm1.Rectangle31Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle31.Position;
if n = 2 then
Image2.Position := Rectangle31.Position;
if n = 3 then
Image3.Position := Rectangle31.Position;
if n = 4 then
Image4.Position := Rectangle31.Position;
if n = 5 then
Image5.Position := Rectangle31.Position;
if n = 6 then
Image6.Position := Rectangle31.Position;
if n = 7 then
Image7.Position := Rectangle31.Position;
if n = 8 then
Image8.Position := Rectangle31.Position;
if n = 9 then
Image9.Position := Rectangle31.Position;
if n = 10 then
Image10.Position := Rectangle31.Position;
if n = 11 then
Image11.Position := Rectangle31.Position;
if n = 12 then
Image12.Position := Rectangle31.Position;
if n = 13 then
Image13.Position := Rectangle31.Position;
if n = 14 then
Image14.Position := Rectangle31.Position;
if n = 15 then
Image15.Position := Rectangle31.Position;
if n = 16 then
Image16.Position := Rectangle31.Position;
if n = 17 then

Image17.Position := Rectangle31.Position;
if n = 18 then
Image18.Position := Rectangle31.Position;
if n = 19 then
Image19.Position := Rectangle31.Position;
if n = 20 then
Image20.Position := Rectangle31.Position;
if n = 21 then
Image21.Position := Rectangle31.Position;
if n = 22 then
Image22.Position := Rectangle31.Position;
if n = 23 then
Image23.Position := Rectangle31.Position;
if n = 24 then
Image24.Position := Rectangle31.Position;
if n = 25 then
Image25.Position := Rectangle31.Position;
if n = 26 then
Image26.Position := Rectangle31.Position;
if n = 27 then
Image27.Position := Rectangle31.Position;
if n = 28 then
Image28.Position := Rectangle31.Position;
if n = 29 then
Image29.Position := Rectangle31.Position;
if n = 30 then
Image30.Position := Rectangle31.Position;
if n = 31 then
Image31.Position := Rectangle31.Position;
if n = 32 then
Image32.Position := Rectangle31.Position;
end;
procedure TForm1.Rectangle32Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle32.Position;
if n = 2 then
Image2.Position := Rectangle32.Position;
if n = 3 then
Image3.Position := Rectangle32.Position;
if n = 4 then
Image4.Position := Rectangle32.Position;
if n = 5 then
Image5.Position := Rectangle32.Position;
if n = 6 then
Image6.Position := Rectangle32.Position;
if n = 7 then

Image7.Position := Rectangle32.Position;
if n = 8 then
Image8.Position := Rectangle32.Position;
if n = 9 then
Image9.Position := Rectangle32.Position;
if n = 10 then
Image10.Position := Rectangle32.Position;
if n = 11 then
Image11.Position := Rectangle32.Position;
if n = 12 then
Image12.Position := Rectangle32.Position;
if n = 13 then
Image13.Position := Rectangle32.Position;
if n = 14 then
Image14.Position := Rectangle32.Position;
if n = 15 then
Image15.Position := Rectangle32.Position;
if n = 16 then
Image16.Position := Rectangle32.Position;
if n = 17 then
Image17.Position := Rectangle32.Position;
if n = 18 then
Image18.Position := Rectangle32.Position;
if n = 19 then
Image19.Position := Rectangle32.Position;
if n = 20 then
Image20.Position := Rectangle32.Position;
if n = 21 then
Image21.Position := Rectangle32.Position;
if n = 22 then
Image22.Position := Rectangle32.Position;
if n = 23 then
Image23.Position := Rectangle32.Position;
if n = 24 then
Image24.Position := Rectangle32.Position;
if n = 25 then
Image25.Position := Rectangle32.Position;
if n = 26 then
Image26.Position := Rectangle32.Position;
if n = 27 then
Image27.Position := Rectangle32.Position;
if n = 28 then
Image28.Position := Rectangle32.Position;
if n = 29 then
Image29.Position := Rectangle32.Position;
if n = 30 then
Image30.Position := Rectangle32.Position;
if n = 31 then

Image31.Position := Rectangle32.Position;
if n = 32 then
Image32.Position := Rectangle32.Position;
end;
procedure TForm1.Rectangle33Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle33.Position;
if n = 2 then
Image2.Position := Rectangle33.Position;
if n = 3 then
Image3.Position := Rectangle33.Position;
if n = 4 then
Image4.Position := Rectangle33.Position;
if n = 5 then
Image5.Position := Rectangle33.Position;
if n = 6 then
Image6.Position := Rectangle33.Position;
if n = 7 then
Image7.Position := Rectangle33.Position;
if n = 8 then
Image8.Position := Rectangle33.Position;
if n = 9 then
Image9.Position := Rectangle33.Position;
if n = 10 then
Image10.Position := Rectangle33.Position;
if n = 11 then
Image11.Position := Rectangle33.Position;
if n = 12 then
Image12.Position := Rectangle33.Position;
if n = 13 then
Image13.Position := Rectangle33.Position;
if n = 14 then
Image14.Position := Rectangle33.Position;
if n = 15 then
Image15.Position := Rectangle33.Position;
if n = 16 then
Image16.Position := Rectangle33.Position;
if n = 17 then
Image17.Position := Rectangle33.Position;
if n = 18 then
Image18.Position := Rectangle33.Position;
if n = 19 then
Image19.Position := Rectangle33.Position;
if n = 20 then
Image20.Position := Rectangle33.Position;
if n = 21 then

Image21.Position := Rectangle33.Position;
if n = 22 then
Image22.Position := Rectangle33.Position;
if n = 23 then
Image23.Position := Rectangle33.Position;
if n = 24 then
Image24.Position := Rectangle33.Position;
if n = 25 then
Image25.Position := Rectangle33.Position;
if n = 26 then
Image26.Position := Rectangle33.Position;
if n = 27 then
Image27.Position := Rectangle33.Position;
if n = 28 then
Image28.Position := Rectangle33.Position;
if n = 29 then
Image29.Position := Rectangle33.Position;
if n = 30 then
Image30.Position := Rectangle33.Position;
if n = 31 then
Image31.Position := Rectangle33.Position;
if n = 32 then
Image32.Position := Rectangle33.Position;
end;
procedure TForm1.Rectangle34Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle34.Position;
if n = 2 then
Image2.Position := Rectangle34.Position;
if n = 3 then
Image3.Position := Rectangle34.Position;
if n = 4 then
Image4.Position := Rectangle34.Position;
if n = 5 then
Image5.Position := Rectangle34.Position;
if n = 6 then
Image6.Position := Rectangle34.Position;
if n = 7 then
Image7.Position := Rectangle34.Position;
if n = 8 then
Image8.Position := Rectangle34.Position;
if n = 9 then
Image9.Position := Rectangle34.Position;
if n = 10 then
Image10.Position := Rectangle34.Position;
if n = 11 then

Image11.Position := Rectangle34.Position;
if n = 12 then
Image12.Position := Rectangle34.Position;
if n = 13 then
Image13.Position := Rectangle34.Position;
if n = 14 then
Image14.Position := Rectangle34.Position;
if n = 15 then
Image15.Position := Rectangle34.Position;
if n = 16 then
Image16.Position := Rectangle34.Position;
if n = 17 then
Image17.Position := Rectangle34.Position;
if n = 18 then
Image18.Position := Rectangle34.Position;
if n = 19 then
Image19.Position := Rectangle34.Position;
if n = 20 then
Image20.Position := Rectangle34.Position;
if n = 21 then
Image21.Position := Rectangle34.Position;
if n = 22 then
Image22.Position := Rectangle34.Position;
if n = 23 then
Image23.Position := Rectangle34.Position;
if n = 24 then
Image24.Position := Rectangle34.Position;
if n = 25 then
Image25.Position := Rectangle34.Position;
if n = 26 then
Image26.Position := Rectangle34.Position;
if n = 27 then
Image27.Position := Rectangle34.Position;
if n = 28 then
Image28.Position := Rectangle34.Position;
if n = 29 then
Image29.Position := Rectangle34.Position;
if n = 30 then
Image30.Position := Rectangle34.Position;
if n = 31 then
Image31.Position := Rectangle34.Position;
if n = 32 then
Image32.Position := Rectangle34.Position;
end;
procedure TForm1.Rectangle35Click(Sender: TObject);
begin
if n = 1 then

Image1.Position := Rectangle35.Position;
if n = 2 then
Image2.Position := Rectangle35.Position;
if n = 3 then
Image3.Position := Rectangle35.Position;
if n = 4 then
Image4.Position := Rectangle35.Position;
if n = 5 then
Image5.Position := Rectangle35.Position;
if n = 6 then
Image6.Position := Rectangle35.Position;
if n = 7 then
Image7.Position := Rectangle35.Position;
if n = 8 then
Image8.Position := Rectangle35.Position;
if n = 9 then
Image9.Position := Rectangle35.Position;
if n = 10 then
Image10.Position := Rectangle35.Position;
if n = 11 then
Image11.Position := Rectangle35.Position;
if n = 12 then
Image12.Position := Rectangle35.Position;
if n = 13 then
Image13.Position := Rectangle35.Position;
if n = 14 then
Image14.Position := Rectangle35.Position;
if n = 15 then
Image15.Position := Rectangle35.Position;
if n = 16 then
Image16.Position := Rectangle35.Position;
if n = 17 then
Image17.Position := Rectangle35.Position;
if n = 18 then
Image18.Position := Rectangle35.Position;
if n = 19 then
Image19.Position := Rectangle35.Position;
if n = 20 then
Image20.Position := Rectangle35.Position;
if n = 21 then
Image21.Position := Rectangle35.Position;
if n = 22 then
Image22.Position := Rectangle35.Position;
if n = 23 then
Image23.Position := Rectangle35.Position;
if n = 24 then
Image24.Position := Rectangle35.Position;
if n = 25 then

Image25.Position := Rectangle35.Position;
if n = 26 then
Image26.Position := Rectangle35.Position;
if n = 27 then
Image27.Position := Rectangle35.Position;
if n = 28 then
Image28.Position := Rectangle35.Position;
if n = 29 then
Image29.Position := Rectangle35.Position;
if n = 30 then
Image30.Position := Rectangle35.Position;
if n = 31 then
Image31.Position := Rectangle35.Position;
if n = 32 then
Image32.Position := Rectangle35.Position;
end;
procedure TForm1.Rectangle36Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle36.Position;
if n = 2 then
Image2.Position := Rectangle36.Position;
if n = 3 then
Image3.Position := Rectangle36.Position;
if n = 4 then
Image4.Position := Rectangle36.Position;
if n = 5 then
Image5.Position := Rectangle36.Position;
if n = 6 then
Image6.Position := Rectangle36.Position;
if n = 7 then
Image7.Position := Rectangle36.Position;
if n = 8 then
Image8.Position := Rectangle36.Position;
if n = 9 then
Image9.Position := Rectangle36.Position;
if n = 10 then
Image10.Position := Rectangle36.Position;
if n = 11 then
Image11.Position := Rectangle36.Position;
if n = 12 then
Image12.Position := Rectangle36.Position;
if n = 13 then
Image13.Position := Rectangle36.Position;
if n = 14 then
Image14.Position := Rectangle36.Position;
if n = 15 then

Image15.Position := Rectangle36.Position;
if n = 16 then
Image16.Position := Rectangle36.Position;
if n = 17 then
Image17.Position := Rectangle36.Position;
if n = 18 then
Image18.Position := Rectangle36.Position;
if n = 19 then
Image19.Position := Rectangle36.Position;
if n = 20 then
Image20.Position := Rectangle36.Position;
if n = 21 then
Image21.Position := Rectangle36.Position;
if n = 22 then
Image22.Position := Rectangle36.Position;
if n = 23 then
Image23.Position := Rectangle36.Position;
if n = 24 then
Image24.Position := Rectangle36.Position;
if n = 25 then
Image25.Position := Rectangle36.Position;
if n = 26 then
Image26.Position := Rectangle36.Position;
if n = 27 then
Image27.Position := Rectangle36.Position;
if n = 28 then
Image28.Position := Rectangle36.Position;
if n = 29 then
Image29.Position := Rectangle36.Position;
if n = 30 then
Image30.Position := Rectangle36.Position;
if n = 31 then
Image31.Position := Rectangle36.Position;
if n = 32 then
Image32.Position := Rectangle36.Position;
end;
procedure TForm1.Rectangle37Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle37.Position;
if n = 2 then
Image2.Position := Rectangle37.Position;
if n = 3 then
Image3.Position := Rectangle37.Position;
if n = 4 then
Image4.Position := Rectangle37.Position;
if n = 5 then

Image5.Position := Rectangle37.Position;
if n = 6 then
Image6.Position := Rectangle37.Position;
if n = 7 then
Image7.Position := Rectangle37.Position;
if n = 8 then
Image8.Position := Rectangle37.Position;
if n = 9 then
Image9.Position := Rectangle37.Position;
if n = 10 then
Image10.Position := Rectangle37.Position;
if n = 11 then
Image11.Position := Rectangle37.Position;
if n = 12 then
Image12.Position := Rectangle37.Position;
if n = 13 then
Image13.Position := Rectangle37.Position;
if n = 14 then
Image14.Position := Rectangle37.Position;
if n = 15 then
Image15.Position := Rectangle37.Position;
if n = 16 then
Image16.Position := Rectangle37.Position;
if n = 17 then
Image17.Position := Rectangle37.Position;
if n = 18 then
Image18.Position := Rectangle37.Position;
if n = 19 then
Image19.Position := Rectangle37.Position;
if n = 20 then
Image20.Position := Rectangle37.Position;
if n = 21 then
Image21.Position := Rectangle37.Position;
if n = 22 then
Image22.Position := Rectangle37.Position;
if n = 23 then
Image23.Position := Rectangle37.Position;
if n = 24 then
Image24.Position := Rectangle37.Position;
if n = 25 then
Image25.Position := Rectangle37.Position;
if n = 26 then
Image26.Position := Rectangle37.Position;
if n = 27 then
Image27.Position := Rectangle37.Position;
if n = 28 then
Image28.Position := Rectangle37.Position;
if n = 29 then

Image29.Position := Rectangle37.Position;
if n = 30 then
Image30.Position := Rectangle37.Position;
if n = 31 then
Image31.Position := Rectangle37.Position;
if n = 32 then
Image32.Position := Rectangle37.Position;
end;
procedure TForm1.Rectangle38Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle38.Position;
if n = 2 then
Image2.Position := Rectangle38.Position;
if n = 3 then
Image3.Position := Rectangle38.Position;
if n = 4 then
Image4.Position := Rectangle38.Position;
if n = 5 then
Image5.Position := Rectangle38.Position;
if n = 6 then
Image6.Position := Rectangle38.Position;
if n = 7 then
Image7.Position := Rectangle38.Position;
if n = 8 then
Image8.Position := Rectangle38.Position;
if n = 9 then
Image9.Position := Rectangle38.Position;
if n = 10 then
Image10.Position :=Rectangle38.Position;
if n = 11 then
Image11.Position := Rectangle38.Position;
if n = 12 then
Image12.Position := Rectangle38.Position;
if n = 13 then
Image13.Position := Rectangle38.Position;
if n = 14 then
Image14.Position := Rectangle38.Position;
if n = 15 then
Image15.Position := Rectangle38.Position;
if n = 16 then
Image16.Position := Rectangle38.Position;
if n = 17 then
Image17.Position := Rectangle38.Position;
if n = 18 then
Image18.Position := Rectangle38.Position;
if n = 19 then

Image19.Position := Rectangle38.Position;
if n = 20 then
Image20.Position := Rectangle38.Position;
if n = 21 then
Image21.Position := Rectangle38.Position;
if n = 22 then
Image22.Position := Rectangle38.Position;
if n = 23 then
Image23.Position := Rectangle38.Position;
if n = 24 then
Image24.Position := Rectangle38.Position;
if n = 25 then
Image25.Position := Rectangle38.Position;
if n = 26 then
Image26.Position := Rectangle38.Position;
if n = 27 then
Image27.Position := Rectangle38.Position;
if n = 28 then
Image28.Position := Rectangle38.Position;
if n = 29 then
Image29.Position := Rectangle38.Position;
if n = 30 then
Image30.Position := Rectangle38.Position;
if n = 31 then
Image31.Position := Rectangle38.Position;
if n = 32 then
Image32.Position := Rectangle38.Position;
end;
procedure TForm1.Rectangle39Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle39.Position;
if n = 2 then
Image2.Position := Rectangle39.Position;
if n = 3 then
Image3.Position := Rectangle39.Position;
if n = 4 then
Image4.Position := Rectangle39.Position;
if n = 5 then
Image5.Position := Rectangle39.Position;
if n = 6 then
Image6.Position := Rectangle39.Position;
if n = 7 then
Image7.Position := Rectangle39.Position;
if n = 8 then
Image8.Position := Rectangle39.Position;
if n = 9 then

Image9.Position := Rectangle39.Position;
if n = 10 then
Image10.Position := Rectangle39.Position;
if n = 11 then
Image11.Position := Rectangle39.Position;
if n = 12 then
Image12.Position := Rectangle39.Position;
if n = 13 then
Image13.Position := Rectangle39.Position;
if n = 14 then
Image14.Position := Rectangle39.Position;
if n = 15 then
Image15.Position := Rectangle39.Position;
if n = 16 then
Image16.Position := Rectangle39.Position;
if n = 17 then
Image17.Position := Rectangle39.Position;
if n = 18 then
Image18.Position := Rectangle39.Position;
if n = 19 then
Image19.Position := Rectangle39.Position;
if n = 20 then
Image20.Position := Rectangle39.Position;
if n = 21 then
Image21.Position := Rectangle39.Position;
if n = 22 then
Image22.Position := Rectangle39.Position;
if n = 23 then
Image23.Position := Rectangle39.Position;
if n = 24 then
Image24.Position := Rectangle39.Position;
if n = 25 then
Image25.Position := Rectangle39.Position;
if n = 26 then
Image26.Position := Rectangle39.Position;
if n = 27 then
Image27.Position := Rectangle39.Position;
if n = 28 then
Image28.Position := Rectangle39.Position;
if n = 29 then
Image29.Position := Rectangle39.Position;
if n = 30 then
Image30.Position := Rectangle39.Position;
if n = 31 then
Image31.Position := Rectangle39.Position;
if n = 32 then
Image32.Position := Rectangle39.Position;
end;

procedure TForm1.Rectangle3Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle3.Position;
if n = 2 then
Image2.Position := Rectangle3.Position;
if n = 3 then
Image3.Position := Rectangle3.Position;
if n = 4 then
Image4.Position := Rectangle3.Position;
if n = 5 then
Image5.Position := Rectangle3.Position;
if n = 6 then
Image6.Position := Rectangle3.Position;
if n = 7 then
Image7.Position := Rectangle3.Position;
if n = 8 then
Image8.Position := Rectangle3.Position;
if n = 9 then
Image9.Position := Rectangle3.Position;
if n = 10 then
Image10.Position := Rectangle3.Position;
if n = 11 then
Image11.Position := Rectangle3.Position;
if n = 12 then
Image12.Position := Rectangle3.Position;
if n = 13 then
Image13.Position := Rectangle3.Position;
if n = 14 then
Image14.Position := Rectangle3.Position;
if n = 15 then
Image15.Position := Rectangle3.Position;
if n = 16 then
Image16.Position := Rectangle3.Position;
if n = 17 then
Image17.Position := Rectangle3.Position;
if n = 18 then
Image18.Position := Rectangle3.Position;
if n = 19 then
Image19.Position := Rectangle3.Position;
if n = 20 then
Image20.Position := Rectangle3.Position;
if n = 21 then
Image21.Position := Rectangle3.Position;
if n = 22 then
Image22.Position := Rectangle3.Position;
if n = 23 then

Image23.Position := Rectangle3.Position;
if n = 24 then
Image24.Position := Rectangle3.Position;
if n = 25 then
Image25.Position := Rectangle3.Position;
if n = 26 then
Image26.Position := Rectangle3.Position;
if n = 27 then
Image27.Position := Rectangle3.Position;
if n = 28 then
Image28.Position := Rectangle3.Position;
if n = 29 then
Image29.Position := Rectangle3.Position;
if n = 30 then
Image30.Position := Rectangle3.Position;
if n = 31 then
Image31.Position := Rectangle3.Position;
if n = 32 then
Image32.Position := Rectangle3.Position;
end;
procedure TForm1.Rectangle40Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle40.Position;
if n = 2 then
Image2.Position := Rectangle40.Position;
if n = 3 then
Image3.Position := Rectangle40.Position;
if n = 4 then
Image4.Position := Rectangle40.Position;
if n = 5 then
Image5.Position := Rectangle40.Position;
if n = 6 then
Image6.Position := Rectangle40.Position;
if n = 7 then
Image7.Position := Rectangle40.Position;
if n = 8 then
Image8.Position := Rectangle40.Position;
if n = 9 then
Image9.Position := Rectangle40.Position;
if n = 10 then
Image10.Position := Rectangle40.Position;
if n = 11 then
Image11.Position := Rectangle40.Position;
if n = 12 then
Image12.Position := Rectangle40.Position;
if n = 13 then

Image13.Position := Rectangle40.Position;
if n = 14 then
Image14.Position := Rectangle40.Position;
if n = 15 then
Image15.Position := Rectangle40.Position;
if n = 16 then
Image16.Position := Rectangle40.Position;
if n = 17 then
Image17.Position := Rectangle40.Position;
if n = 18 then
Image18.Position := Rectangle40.Position;
if n = 19 then
Image19.Position := Rectangle40.Position;
if n = 20 then
Image20.Position := Rectangle40.Position;
if n = 21 then
Image21.Position := Rectangle40.Position;
if n = 22 then
Image22.Position := Rectangle40.Position;
if n = 23 then
Image23.Position := Rectangle40.Position;
if n = 24 then
Image24.Position := Rectangle40.Position;
if n = 25 then
Image25.Position := Rectangle40.Position;
if n = 26 then
Image26.Position := Rectangle40.Position;
if n = 27 then
Image27.Position := Rectangle40.Position;
if n = 28 then
Image28.Position := Rectangle40.Position;
if n = 29 then
Image29.Position := Rectangle40.Position;
if n = 30 then
Image30.Position := Rectangle40.Position;
if n = 31 then
Image31.Position := Rectangle40.Position;
if n = 32 then
Image32.Position := Rectangle40.Position;
end;
procedure TForm1.Rectangle41Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle41.Position;
if n = 2 then
Image2.Position := Rectangle41.Position;
if n = 3 then

Image3.Position := Rectangle41.Position;
if n = 4 then
Image4.Position := Rectangle41.Position;
if n = 5 then
Image5.Position := Rectangle41.Position;
if n = 6 then
Image6.Position := Rectangle41.Position;
if n = 7 then
Image7.Position := Rectangle41.Position;
if n = 8 then
Image8.Position := Rectangle41.Position;
if n = 9 then
Image9.Position := Rectangle41.Position;
if n = 10 then
Image10.Position := Rectangle41.Position;
if n = 11 then
Image11.Position := Rectangle41.Position;
if n = 12 then
Image12.Position := Rectangle41.Position;
if n = 13 then
Image13.Position := Rectangle41.Position;
if n = 14 then
Image14.Position := Rectangle41.Position;
if n = 15 then
Image15.Position := Rectangle41.Position;
if n = 16 then
Image16.Position := Rectangle41.Position;
if n = 17 then
Image17.Position := Rectangle41.Position;
if n = 18 then
Image18.Position := Rectangle41.Position;
if n = 19 then
Image19.Position := Rectangle41.Position;
if n = 20 then
Image20.Position := Rectangle41.Position;
if n = 21 then
Image21.Position := Rectangle41.Position;
if n = 22 then
Image22.Position := Rectangle41.Position;
if n = 23 then
Image23.Position := Rectangle41.Position;
if n = 24 then
Image24.Position := Rectangle41.Position;
if n = 25 then
Image25.Position := Rectangle41.Position;
if n = 26 then
Image26.Position := Rectangle41.Position;
if n = 27 then

Image27.Position := Rectangle41.Position;
if n = 28 then
Image28.Position := Rectangle41.Position;
if n = 29 then
Image29.Position := Rectangle41.Position;
if n = 30 then
Image30.Position := Rectangle41.Position;
if n = 31 then
Image31.Position := Rectangle41.Position;
if n = 32 then
Image32.Position := Rectangle41.Position;
end;
procedure TForm1.Rectangle42Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle42.Position;
if n = 2 then
Image2.Position := Rectangle42.Position;
if n = 3 then
Image3.Position := Rectangle42.Position;
if n = 4 then
Image4.Position := Rectangle42.Position;
if n = 5 then
Image5.Position := Rectangle42.Position;
if n = 6 then
Image6.Position := Rectangle42.Position;
if n = 7 then
Image7.Position := Rectangle42.Position;
if n = 8 then
Image8.Position := Rectangle42.Position;
if n = 9 then
Image9.Position := Rectangle42.Position;
if n = 10 then
Image10.Position := Rectangle42.Position;
if n = 11 then
Image11.Position := Rectangle42.Position;
if n = 12 then
Image12.Position := Rectangle42.Position;
if n = 13 then
Image13.Position := Rectangle42.Position;
if n = 14 then
Image14.Position := Rectangle42.Position;
if n = 15 then
Image15.Position := Rectangle42.Position;
if n = 16 then
Image16.Position := Rectangle42.Position;
if n = 17 then

Image17.Position := Rectangle42.Position;
if n = 18 then
Image18.Position := Rectangle42.Position;
if n = 19 then
Image19.Position := Rectangle42.Position;
if n = 20 then
Image20.Position := Rectangle42.Position;
if n = 21 then
Image21.Position := Rectangle42.Position;
if n = 22 then
Image22.Position := Rectangle42.Position;
if n = 23 then
Image23.Position := Rectangle42.Position;
if n = 24 then
Image24.Position := Rectangle42.Position;
if n = 25 then
Image25.Position := Rectangle42.Position;
if n = 26 then
Image26.Position := Rectangle42.Position;
if n = 27 then
Image27.Position := Rectangle42.Position;
if n = 28 then
Image28.Position := Rectangle42.Position;
if n = 29 then
Image29.Position := Rectangle42.Position;
if n = 30 then
Image30.Position := Rectangle42.Position;
if n = 31 then
Image31.Position := Rectangle42.Position;
if n = 32 then
Image32.Position := Rectangle42.Position;
end;
procedure TForm1.Rectangle43Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle43.Position;
if n = 2 then
Image2.Position := Rectangle43.Position;
if n = 3 then
Image3.Position := Rectangle43.Position;
if n = 4 then
Image4.Position := Rectangle43.Position;
if n = 5 then
Image5.Position := Rectangle43.Position;
if n = 6 then
Image6.Position := Rectangle43.Position;
if n = 7 then

Image7.Position := Rectangle43.Position;
if n = 8 then
Image8.Position := Rectangle43.Position;
if n = 9 then
Image9.Position := Rectangle43.Position;
if n = 10 then
Image10.Position := Rectangle43.Position;
if n = 11 then
Image11.Position := Rectangle43.Position;
if n = 12 then
Image12.Position := Rectangle43.Position;
if n = 13 then
Image13.Position := Rectangle43.Position;
if n = 14 then
Image14.Position := Rectangle43.Position;
if n = 15 then
Image15.Position := Rectangle43.Position;
if n = 16 then
Image16.Position := Rectangle43.Position;
if n = 17 then
Image17.Position := Rectangle43.Position;
if n = 18 then
Image18.Position := Rectangle43.Position;
if n = 19 then
Image19.Position := Rectangle43.Position;
if n = 20 then
Image20.Position := Rectangle43.Position;
if n = 21 then
Image21.Position := Rectangle43.Position;
if n = 22 then
Image22.Position := Rectangle43.Position;
if n = 23 then
Image23.Position := Rectangle43.Position;
if n = 24 then
Image24.Position := Rectangle43.Position;
if n = 25 then
Image25.Position := Rectangle43.Position;
if n = 26 then
Image26.Position := Rectangle43.Position;
if n = 27 then
Image27.Position := Rectangle43.Position;
if n = 28 then
Image28.Position := Rectangle43.Position;
if n = 29 then
Image29.Position := Rectangle43.Position;
if n = 30 then
Image30.Position := Rectangle43.Position;
if n = 31 then

Image31.Position := Rectangle43.Position;
if n = 32 then
Image32.Position := Rectangle43.Position;
end;
procedure TForm1.Rectangle44Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle44.Position;
if n = 2 then
Image2.Position := Rectangle44.Position;
if n = 3 then
Image3.Position := Rectangle44.Position;
if n = 4 then
Image4.Position := Rectangle44.Position;
if n = 5 then
Image5.Position := Rectangle44.Position;
if n = 6 then
Image6.Position := Rectangle44.Position;
if n = 7 then
Image7.Position := Rectangle44.Position;
if n = 8 then
Image8.Position := Rectangle44.Position;
if n = 9 then
Image9.Position := Rectangle44.Position;
if n = 10 then
Image10.Position := Rectangle44.Position;
if n = 11 then
Image11.Position := Rectangle44.Position;
if n = 12 then
Image12.Position := Rectangle44.Position;
if n = 13 then
Image13.Position := Rectangle44.Position;
if n = 14 then
Image14.Position := Rectangle44.Position;
if n = 15 then
Image15.Position := Rectangle44.Position;
if n = 16 then
Image16.Position := Rectangle44.Position;
if n = 17 then
Image17.Position := Rectangle44.Position;
if n = 18 then
Image18.Position := Rectangle44.Position;
if n = 19 then
Image19.Position := Rectangle44.Position;
if n = 20 then
Image20.Position := Rectangle44.Position;
if n = 21 then

Image21.Position := Rectangle44.Position;
if n = 22 then
Image22.Position := Rectangle44.Position;
if n = 23 then
Image23.Position := Rectangle44.Position;
if n = 24 then
Image24.Position := Rectangle44.Position;
if n = 25 then
Image25.Position := Rectangle44.Position;
if n = 26 then
Image26.Position := Rectangle44.Position;
if n = 27 then
Image27.Position := Rectangle44.Position;
if n = 28 then
Image28.Position := Rectangle44.Position;
if n = 29 then
Image29.Position := Rectangle44.Position;
if n = 30 then
Image30.Position := Rectangle44.Position;
if n = 31 then
Image31.Position := Rectangle44.Position;
if n = 32 then
Image32.Position := Rectangle44.Position;
end;
procedure TForm1.Rectangle45Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle45.Position;
if n = 2 then
Image2.Position := Rectangle45.Position;
if n = 3 then
Image3.Position := Rectangle45.Position;
if n = 4 then
Image4.Position := Rectangle45.Position;
if n = 5 then
Image5.Position := Rectangle45.Position;
if n = 6 then
Image6.Position := Rectangle45.Position;
if n = 7 then
Image7.Position := Rectangle45.Position;
if n = 8 then
Image8.Position := Rectangle45.Position;
if n = 9 then
Image9.Position := Rectangle45.Position;
if n = 10 then
Image10.Position := Rectangle45.Position;
if n = 11 then

Image11.Position := Rectangle45.Position;
if n = 12 then
Image12.Position := Rectangle45.Position;
if n = 13 then
Image13.Position := Rectangle45.Position;
if n = 14 then
Image14.Position := Rectangle45.Position;
if n = 15 then
Image15.Position := Rectangle45.Position;
if n = 16 then
Image16.Position := Rectangle45.Position;
if n = 17 then
Image17.Position := Rectangle45.Position;
if n = 18 then
Image18.Position := Rectangle45.Position;
if n = 19 then
Image19.Position := Rectangle45.Position;
if n = 20 then
Image20.Position := Rectangle45.Position;
if n = 21 then
Image21.Position := Rectangle45.Position;
if n = 22 then
Image22.Position := Rectangle45.Position;
if n = 23 then
Image23.Position := Rectangle45.Position;
if n = 24 then
Image24.Position := Rectangle45.Position;
if n = 25 then
Image25.Position := Rectangle45.Position;
if n = 26 then
Image26.Position := Rectangle45.Position;
if n = 27 then
Image27.Position := Rectangle45.Position;
if n = 28 then
Image28.Position := Rectangle45.Position;
if n = 29 then
Image29.Position := Rectangle45.Position;
if n = 30 then
Image30.Position := Rectangle45.Position;
if n = 31 then
Image31.Position := Rectangle45.Position;
if n = 32 then
Image32.Position := Rectangle45.Position;
end;
procedure TForm1.Rectangle46Click(Sender: TObject);
begin
if n = 1 then

Image1.Position := Rectangle46.Position;
if n = 2 then
Image2.Position := Rectangle46.Position;
if n = 3 then
Image3.Position := Rectangle46.Position;
if n = 4 then
Image4.Position := Rectangle46.Position;
if n = 5 then
Image5.Position := Rectangle46.Position;
if n = 6 then
Image6.Position := Rectangle46.Position;
if n = 7 then
Image7.Position := Rectangle46.Position;
if n = 8 then
Image8.Position := Rectangle46.Position;
if n = 9 then
Image9.Position := Rectangle46.Position;
if n = 10 then
Image10.Position := Rectangle46.Position;
if n = 11 then
Image11.Position := Rectangle46.Position;
if n = 12 then
Image12.Position := Rectangle46.Position;
if n = 13 then
Image13.Position := Rectangle46.Position;
if n = 14 then
Image14.Position := Rectangle46.Position;
if n = 15 then
Image15.Position := Rectangle46.Position;
if n = 16 then
Image16.Position := Rectangle46.Position;
if n = 17 then
Image17.Position := Rectangle46.Position;
if n = 18 then
Image18.Position := Rectangle46.Position;
if n = 19 then
Image19.Position := Rectangle46.Position;
if n = 20 then
Image20.Position := Rectangle46.Position;
if n = 21 then
Image21.Position := Rectangle46.Position;
if n = 22 then
Image22.Position := Rectangle46.Position;
if n = 23 then
Image23.Position := Rectangle46.Position;
if n = 24 then
Image24.Position := Rectangle46.Position;
if n = 25 then

Image25.Position := Rectangle46.Position;
if n = 26 then
Image26.Position := Rectangle46.Position;
if n = 27 then
Image27.Position := Rectangle46.Position;
if n = 28 then
Image28.Position := Rectangle46.Position;
if n = 29 then
Image29.Position := Rectangle46.Position;
if n = 30 then
Image30.Position := Rectangle46.Position;
if n = 31 then
Image31.Position := Rectangle46.Position;
if n = 32 then
Image32.Position := Rectangle46.Position;
end;
procedure TForm1.Rectangle47Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle47.Position;
if n = 2 then
Image2.Position := Rectangle47.Position;
if n = 3 then
Image3.Position := Rectangle47.Position;
if n = 4 then
Image4.Position := Rectangle47.Position;
if n = 5 then
Image5.Position := Rectangle47.Position;
if n = 6 then
Image6.Position := Rectangle47.Position;
if n = 7 then
Image7.Position := Rectangle47.Position;
if n = 8 then
Image8.Position := Rectangle47.Position;
if n = 9 then
Image9.Position := Rectangle47.Position;
if n = 10 then
Image10.Position := Rectangle47.Position;
if n = 11 then
Image11.Position := Rectangle47.Position;
if n = 12 then
Image12.Position := Rectangle47.Position;
if n = 13 then
Image13.Position := Rectangle47.Position;
if n = 14 then
Image14.Position := Rectangle47.Position;
if n = 15 then

Image15.Position := Rectangle47.Position;
if n = 16 then
Image16.Position := Rectangle47.Position;
if n = 17 then
Image17.Position := Rectangle47.Position;
if n = 18 then
Image18.Position := Rectangle47.Position;
if n = 19 then
Image19.Position := Rectangle47.Position;
if n = 20 then
Image20.Position := Rectangle47.Position;
if n = 21 then
Image21.Position := Rectangle47.Position;
if n = 22 then
Image22.Position := Rectangle47.Position;
if n = 23 then
Image23.Position := Rectangle47.Position;
if n = 24 then
Image24.Position := Rectangle47.Position;
if n = 25 then
Image25.Position := Rectangle47.Position;
if n = 26 then
Image26.Position := Rectangle47.Position;
if n = 27 then
Image27.Position := Rectangle47.Position;
if n = 28 then
Image28.Position := Rectangle47.Position;
if n = 29 then
Image29.Position := Rectangle47.Position;
if n = 30 then
Image30.Position := Rectangle47.Position;
if n = 31 then
Image31.Position := Rectangle47.Position;
if n = 32 then
Image32.Position := Rectangle47.Position;
end;
procedure TForm1.Rectangle48Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle48.Position;
if n = 2 then
Image2.Position := Rectangle48.Position;
if n = 3 then
Image3.Position := Rectangle48.Position;
if n = 4 then
Image4.Position := Rectangle48.Position;
if n = 5 then

Image5.Position := Rectangle48.Position;
if n = 6 then
Image6.Position := Rectangle48.Position;
if n = 7 then
Image7.Position := Rectangle48.Position;
if n = 8 then
Image8.Position := Rectangle48.Position;
if n = 9 then
Image9.Position := Rectangle48.Position;
if n = 10 then
Image10.Position := Rectangle48.Position;
if n = 11 then
Image11.Position := Rectangle48.Position;
if n = 12 then
Image12.Position := Rectangle48.Position;
if n = 13 then
Image13.Position := Rectangle48.Position;
if n = 14 then
Image14.Position := Rectangle48.Position;
if n = 15 then
Image15.Position := Rectangle48.Position;
if n = 16 then
Image16.Position := Rectangle48.Position;
if n = 17 then
Image17.Position := Rectangle48.Position;
if n = 18 then
Image18.Position := Rectangle48.Position;
if n = 19 then
Image19.Position := Rectangle48.Position;
if n = 20 then
Image20.Position := Rectangle48.Position;
if n = 21 then
Image21.Position := Rectangle48.Position;
if n = 22 then
Image22.Position := Rectangle48.Position;
if n = 23 then
Image23.Position := Rectangle48.Position;
if n = 24 then
Image24.Position := Rectangle48.Position;
if n = 25 then
Image25.Position := Rectangle48.Position;
if n = 26 then
Image26.Position := Rectangle48.Position;
if n = 27 then
Image27.Position := Rectangle48.Position;
if n = 28 then
Image28.Position := Rectangle48.Position;
if n = 29 then

Image29.Position := Rectangle48.Position;
if n = 30 then
Image30.Position := Rectangle48.Position;
if n = 31 then
Image31.Position := Rectangle48.Position;
if n = 32 then
Image32.Position := Rectangle48.Position;
end;
procedure TForm1.Rectangle49Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle49.Position;
if n = 2 then
Image2.Position := Rectangle49.Position;
if n = 3 then
Image3.Position := Rectangle49.Position;
if n = 4 then
Image4.Position := Rectangle49.Position;
if n = 5 then
Image5.Position := Rectangle49.Position;
if n = 6 then
Image6.Position := Rectangle49.Position;
if n = 7 then
Image7.Position := Rectangle49.Position;
if n = 8 then
Image8.Position := Rectangle49.Position;
if n = 9 then
Image9.Position := Rectangle49.Position;
if n = 10 then
Image10.Position := Rectangle49.Position;
if n = 11 then
Image11.Position := Rectangle49.Position;
if n = 12 then
Image12.Position := Rectangle49.Position;
if n = 13 then
Image13.Position := Rectangle49.Position;
if n = 14 then
Image14.Position := Rectangle49.Position;
if n = 15 then
Image15.Position := Rectangle49.Position;
if n = 16 then
Image16.Position := Rectangle49.Position;
if n = 17 then
Image17.Position := Rectangle49.Position;
if n = 18 then
Image18.Position := Rectangle49.Position;
if n = 19 then

Image19.Position := Rectangle49.Position;
if n = 20 then
Image20.Position := Rectangle49.Position;
if n = 21 then
Image21.Position := Rectangle49.Position;
if n = 22 then
Image22.Position := Rectangle49.Position;
if n = 23 then
Image23.Position := Rectangle49.Position;
if n = 24 then
Image24.Position := Rectangle49.Position;
if n = 25 then
Image25.Position := Rectangle49.Position;
if n = 26 then
Image26.Position := Rectangle49.Position;
if n = 27 then
Image27.Position := Rectangle49.Position;
if n = 28 then
Image28.Position := Rectangle49.Position;
if n = 29 then
Image29.Position := Rectangle49.Position;
if n = 30 then
Image30.Position := Rectangle49.Position;
if n = 31 then
Image31.Position := Rectangle49.Position;
if n = 32 then
Image32.Position := Rectangle49.Position;
end;
procedure TForm1.Rectangle4Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle4.Position;
if n = 2 then
Image2.Position := Rectangle4.Position;
if n = 3 then
Image3.Position := Rectangle4.Position;
if n = 4 then
Image4.Position := Rectangle4.Position;
if n = 5 then
Image5.Position := Rectangle4.Position;
if n = 6 then
Image6.Position := Rectangle4.Position;
if n = 7 then
Image7.Position := Rectangle4.Position;
if n = 8 then
Image8.Position := Rectangle4.Position;
if n = 9 then

Image9.Position := Rectangle4.Position;
if n = 10 then
Image10.Position := Rectangle4.Position;
if n = 11 then
Image11.Position := Rectangle4.Position;
if n = 12 then
Image12.Position := Rectangle4.Position;
if n = 13 then
Image13.Position := Rectangle4.Position;
if n = 14 then
Image14.Position := Rectangle4.Position;
if n = 15 then
Image15.Position := Rectangle4.Position;
if n = 16 then
Image16.Position := Rectangle4.Position;
if n = 17 then
Image17.Position := Rectangle4.Position;
if n = 18 then
Image18.Position := Rectangle4.Position;
if n = 19 then
Image19.Position := Rectangle4.Position;
if n = 20 then
Image20.Position := Rectangle4.Position;
if n = 21 then
Image21.Position := Rectangle4.Position;
if n = 22 then
Image22.Position := Rectangle4.Position;
if n = 23 then
Image23.Position := Rectangle4.Position;
if n = 24 then
Image24.Position := Rectangle4.Position;
if n = 25 then
Image25.Position := Rectangle4.Position;
if n = 26 then
Image26.Position := Rectangle4.Position;
if n = 27 then
Image27.Position := Rectangle4.Position;
if n = 28 then
Image28.Position := Rectangle4.Position;
if n = 29 then
Image29.Position := Rectangle4.Position;
if n = 30 then
Image30.Position := Rectangle4.Position;
if n = 31 then
Image31.Position := Rectangle4.Position;
if n = 32 then
Image32.Position := Rectangle4.Position;
end;

procedure TForm1.Rectangle50Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle50.Position;
if n = 2 then
Image2.Position := Rectangle50.Position;
if n = 3 then
Image3.Position := Rectangle50.Position;
if n = 4 then
Image4.Position := Rectangle50.Position;
if n = 5 then
Image5.Position := Rectangle50.Position;
if n = 6 then
Image6.Position := Rectangle50.Position;
if n = 7 then
Image7.Position := Rectangle50.Position;
if n = 8 then
Image8.Position := Rectangle50.Position;
if n = 9 then
Image9.Position := Rectangle50.Position;
if n = 10 then
Image10.Position := Rectangle50.Position;
if n = 11 then
Image11.Position := Rectangle50.Position;
if n = 12 then
Image12.Position := Rectangle50.Position;
if n = 13 then
Image13.Position := Rectangle50.Position;
if n = 14 then
Image14.Position := Rectangle50.Position;
if n = 15 then
Image15.Position := Rectangle50.Position;
if n = 16 then
Image16.Position := Rectangle50.Position;
if n = 17 then
Image17.Position := Rectangle50.Position;
if n = 18 then
Image18.Position := Rectangle50.Position;
if n = 19 then
Image19.Position := Rectangle50.Position;
if n = 20 then
Image20.Position := Rectangle50.Position;
if n = 21 then
Image21.Position := Rectangle50.Position;
if n = 22 then
Image22.Position := Rectangle50.Position;
if n = 23 then

Image23.Position := Rectangle50.Position;
if n = 24 then
Image24.Position := Rectangle50.Position;
if n = 25 then
Image25.Position := Rectangle50.Position;
if n = 26 then
Image26.Position := Rectangle50.Position;
if n = 27 then
Image27.Position := Rectangle50.Position;
if n = 28 then
Image28.Position := Rectangle50.Position;
if n = 29 then
Image29.Position := Rectangle50.Position;
if n = 30 then
Image30.Position := Rectangle50.Position;
if n = 31 then
Image31.Position := Rectangle50.Position;
if n = 32 then
Image32.Position := Rectangle50.Position;
end;
procedure TForm1.Rectangle51Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle51.Position;
if n = 2 then
Image2.Position := Rectangle51.Position;
if n = 3 then
Image3.Position := Rectangle51.Position;
if n = 4 then
Image4.Position := Rectangle51.Position;
if n = 5 then
Image5.Position := Rectangle51.Position;
if n = 6 then
Image6.Position := Rectangle51.Position;
if n = 7 then
Image7.Position := Rectangle51.Position;
if n = 8 then
Image8.Position := Rectangle51.Position;
if n = 9 then
Image9.Position := Rectangle51.Position;
if n = 10 then
Image10.Position := Rectangle51.Position;
if n = 11 then
Image11.Position := Rectangle51.Position;
if n = 12 then
Image12.Position := Rectangle51.Position;
if n = 13 then

Image13.Position := Rectangle51.Position;
if n = 14 then
Image14.Position := Rectangle51.Position;
if n = 15 then
Image15.Position := Rectangle51.Position;
if n = 16 then
Image16.Position := Rectangle51.Position;
if n = 17 then
Image17.Position := Rectangle51.Position;
if n = 18 then
Image18.Position := Rectangle51.Position;
if n = 19 then
Image19.Position := Rectangle51.Position;
if n = 20 then
Image20.Position := Rectangle51.Position;
if n = 21 then
Image21.Position := Rectangle51.Position;
if n = 22 then
Image22.Position := Rectangle51.Position;
if n = 23 then
Image23.Position := Rectangle51.Position;
if n = 24 then
Image24.Position := Rectangle51.Position;
if n = 25 then
Image25.Position := Rectangle51.Position;
if n = 26 then
Image26.Position := Rectangle51.Position;
if n = 27 then
Image27.Position := Rectangle51.Position;
if n = 28 then
Image28.Position := Rectangle51.Position;
if n = 29 then
Image29.Position := Rectangle51.Position;
if n = 30 then
Image30.Position := Rectangle51.Position;
if n = 31 then
Image31.Position := Rectangle51.Position;
if n = 32 then
Image32.Position := Rectangle51.Position;
end;
procedure TForm1.Rectangle52Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle52.Position;
if n = 2 then
Image2.Position := Rectangle52.Position;
if n = 3 then

Image3.Position := Rectangle52.Position;
if n = 4 then
Image4.Position := Rectangle52.Position;
if n = 5 then
Image5.Position := Rectangle52.Position;
if n = 6 then
Image6.Position := Rectangle52.Position;
if n = 7 then
Image7.Position := Rectangle52.Position;
if n = 8 then
Image8.Position := Rectangle52.Position;
if n = 9 then
Image9.Position := Rectangle52.Position;
if n = 10 then
Image10.Position := Rectangle52.Position;
if n = 11 then
Image11.Position := Rectangle52.Position;
if n = 12 then
Image12.Position := Rectangle52.Position;
if n = 13 then
Image13.Position := Rectangle52.Position;
if n = 14 then
Image14.Position := Rectangle52.Position;
if n = 15 then
Image15.Position := Rectangle52.Position;
if n = 16 then
Image16.Position := Rectangle52.Position;
if n = 17 then
Image17.Position := Rectangle52.Position;
if n = 18 then
Image18.Position := Rectangle52.Position;
if n = 19 then
Image19.Position := Rectangle52.Position;
if n = 20 then
Image20.Position := Rectangle52.Position;
if n = 21 then
Image21.Position := Rectangle52.Position;
if n = 22 then
Image22.Position := Rectangle52.Position;
if n = 23 then
Image23.Position := Rectangle52.Position;
if n = 24 then
Image24.Position := Rectangle52.Position;
if n = 25 then
Image25.Position := Rectangle52.Position;
if n = 26 then
Image26.Position := Rectangle52.Position;
if n = 27 then

Image27.Position := Rectangle52.Position;
if n = 28 then
Image28.Position := Rectangle52.Position;
if n = 29 then
Image29.Position := Rectangle52.Position;
if n = 30 then
Image30.Position := Rectangle52.Position;
if n = 31 then
Image31.Position := Rectangle52.Position;
if n = 32 then
Image32.Position := Rectangle52.Position;
end;
procedure TForm1.Rectangle53Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle53.Position;
if n = 2 then
Image2.Position := Rectangle53.Position;
if n = 3 then
Image3.Position := Rectangle53.Position;
if n = 4 then
Image4.Position := Rectangle53.Position;
if n = 5 then
Image5.Position := Rectangle53.Position;
if n = 6 then
Image6.Position := Rectangle53.Position;
if n = 7 then
Image7.Position := Rectangle53.Position;
if n = 8 then
Image8.Position := Rectangle53.Position;
if n = 9 then
Image9.Position := Rectangle53.Position;
if n = 10 then
Image10.Position := Rectangle53.Position;
if n = 11 then
Image11.Position := Rectangle53.Position;
if n = 12 then
Image12.Position := Rectangle53.Position;
if n = 13 then
Image13.Position := Rectangle53.Position;
if n = 14 then
Image14.Position := Rectangle53.Position;
if n = 15 then
Image15.Position := Rectangle53.Position;
if n = 16 then
Image16.Position := Rectangle53.Position;
if n = 17 then

Image17.Position := Rectangle53.Position;
if n = 18 then
Image18.Position := Rectangle53.Position;
if n = 19 then
Image19.Position := Rectangle53.Position;
if n = 20 then
Image20.Position := Rectangle53.Position;
if n = 21 then
Image21.Position := Rectangle53.Position;
if n = 22 then
Image22.Position := Rectangle53.Position;
if n = 23 then
Image23.Position := Rectangle53.Position;
if n = 24 then
Image24.Position := Rectangle53.Position;
if n = 25 then
Image25.Position := Rectangle53.Position;
if n = 26 then
Image26.Position := Rectangle53.Position;
if n = 27 then
Image27.Position := Rectangle53.Position;
if n = 28 then
Image28.Position := Rectangle53.Position;
if n = 29 then
Image29.Position := Rectangle53.Position;
if n = 30 then
Image30.Position := Rectangle53.Position;
if n = 31 then
Image31.Position := Rectangle53.Position;
if n = 32 then
Image32.Position := Rectangle53.Position;
end;
procedure TForm1.Rectangle54Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle54.Position;
if n = 2 then
Image2.Position := Rectangle54.Position;
if n = 3 then
Image3.Position := Rectangle54.Position;
if n = 4 then
Image4.Position := Rectangle54.Position;
if n = 5 then
Image5.Position := Rectangle54.Position;
if n = 6 then
Image6.Position := Rectangle54.Position;
if n = 7 then

Image7.Position := Rectangle54.Position;
if n = 8 then
Image8.Position := Rectangle54.Position;
if n = 9 then
Image9.Position := Rectangle54.Position;
if n = 10 then
Image10.Position := Rectangle54.Position;
if n = 11 then
Image11.Position := Rectangle54.Position;
if n = 12 then
Image12.Position := Rectangle54.Position;
if n = 13 then
Image13.Position := Rectangle54.Position;
if n = 14 then
Image14.Position := Rectangle54.Position;
if n = 15 then
Image15.Position := Rectangle54.Position;
if n = 16 then
Image16.Position := Rectangle54.Position;
if n = 17 then
Image17.Position := Rectangle54.Position;
if n = 18 then
Image18.Position := Rectangle54.Position;
if n = 19 then
Image19.Position := Rectangle54.Position;
if n = 20 then
Image20.Position := Rectangle54.Position;
if n = 21 then
Image21.Position := Rectangle54.Position;
if n = 22 then
Image22.Position := Rectangle54.Position;
if n = 23 then
Image23.Position := Rectangle54.Position;
if n = 24 then
Image24.Position := Rectangle54.Position;
if n = 25 then
Image25.Position := Rectangle54.Position;
if n = 26 then
Image26.Position := Rectangle54.Position;
if n = 27 then
Image27.Position := Rectangle54.Position;
if n = 28 then
Image28.Position := Rectangle54.Position;
if n = 29 then
Image29.Position := Rectangle54.Position;
if n = 30 then
Image30.Position := Rectangle54.Position;
if n = 31 then

Image31.Position := Rectangle54.Position;
if n = 32 then
Image32.Position := Rectangle54.Position;
end;
procedure TForm1.Rectangle55Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle55.Position;
if n = 2 then
Image2.Position := Rectangle55.Position;
if n = 3 then
Image3.Position := Rectangle55.Position;
if n = 4 then
Image4.Position := Rectangle55.Position;
if n = 5 then
Image5.Position := Rectangle55.Position;
if n = 6 then
Image6.Position := Rectangle55.Position;
if n = 7 then
Image7.Position := Rectangle55.Position;
if n = 8 then
Image8.Position := Rectangle55.Position;
if n = 9 then
Image9.Position := Rectangle55.Position;
if n = 10 then
Image10.Position := Rectangle55.Position;
if n = 11 then
Image11.Position := Rectangle55.Position;
if n = 12 then
Image12.Position := Rectangle55.Position;
if n = 13 then
Image13.Position := Rectangle55.Position;
if n = 14 then
Image14.Position := Rectangle55.Position;
if n = 15 then
Image15.Position := Rectangle55.Position;
if n = 16 then
Image16.Position := Rectangle55.Position;
if n = 17 then
Image17.Position := Rectangle55.Position;
if n = 18 then
Image18.Position := Rectangle55.Position;
if n = 19 then
Image19.Position := Rectangle55.Position;
if n = 20 then
Image20.Position := Rectangle55.Position;
if n = 21 then

Image21.Position := Rectangle55.Position;
if n = 22 then
Image22.Position := Rectangle55.Position;
if n = 23 then
Image23.Position := Rectangle55.Position;
if n = 24 then
Image24.Position := Rectangle55.Position;
if n = 25 then
Image25.Position := Rectangle55.Position;
if n = 26 then
Image26.Position := Rectangle55.Position;
if n = 27 then
Image27.Position := Rectangle55.Position;
if n = 28 then
Image28.Position := Rectangle55.Position;
if n = 29 then
Image29.Position := Rectangle55.Position;
if n = 30 then
Image30.Position := Rectangle55.Position;
if n = 31 then
Image31.Position := Rectangle55.Position;
if n = 32 then
Image32.Position := Rectangle55.Position;
end;
procedure TForm1.Rectangle56Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle56.Position;
if n = 2 then
Image2.Position := Rectangle56.Position;
if n = 3 then
Image3.Position := Rectangle56.Position;
if n = 4 then
Image4.Position := Rectangle56.Position;
if n = 5 then
Image5.Position := Rectangle56.Position;
if n = 6 then
Image6.Position := Rectangle56.Position;
if n = 7 then
Image7.Position := Rectangle56.Position;
if n = 8 then
Image8.Position := Rectangle56.Position;
if n = 9 then
Image9.Position := Rectangle56.Position;
if n = 10 then
Image10.Position := Rectangle56.Position;
if n = 11 then

Image11.Position := Rectangle56.Position;
if n = 12 then
Image12.Position := Rectangle56.Position;
if n = 13 then
Image13.Position := Rectangle56.Position;
if n = 14 then
Image14.Position := Rectangle56.Position;
if n = 15 then
Image15.Position := Rectangle56.Position;
if n = 16 then
Image16.Position := Rectangle56.Position;
if n = 17 then
Image17.Position := Rectangle56.Position;
if n = 18 then
Image18.Position := Rectangle56.Position;
if n = 19 then
Image19.Position := Rectangle56.Position;
if n = 20 then
Image20.Position := Rectangle56.Position;
if n = 21 then
Image21.Position := Rectangle56.Position;
if n = 22 then
Image22.Position := Rectangle56.Position;
if n = 23 then
Image23.Position := Rectangle56.Position;
if n = 24 then
Image24.Position := Rectangle56.Position;
if n = 25 then
Image25.Position := Rectangle56.Position;
if n = 26 then
Image26.Position := Rectangle56.Position;
if n = 27 then
Image27.Position := Rectangle56.Position;
if n = 28 then
Image28.Position := Rectangle56.Position;
if n = 29 then
Image29.Position := Rectangle56.Position;
if n = 30 then
Image30.Position := Rectangle56.Position;
if n = 31 then
Image31.Position := Rectangle56.Position;
if n = 32 then
Image32.Position := Rectangle56.Position;
end;
procedure TForm1.Rectangle57Click(Sender: TObject);
begin
if n = 1 then

Image1.Position := Rectangle57.Position;
if n = 2 then
Image2.Position := Rectangle57.Position;
if n = 3 then
Image3.Position := Rectangle57.Position;
if n = 4 then
Image4.Position := Rectangle57.Position;
if n = 5 then
Image5.Position := Rectangle57.Position;
if n = 6 then
Image6.Position := Rectangle57.Position;
if n = 7 then
Image7.Position := Rectangle57.Position;
if n = 8 then
Image8.Position := Rectangle57.Position;
if n = 9 then
Image9.Position := Rectangle57.Position;
if n = 10 then
Image10.Position := Rectangle57.Position;
if n = 11 then
Image11.Position := Rectangle57.Position;
if n = 12 then
Image12.Position := Rectangle57.Position;
if n = 13 then
Image13.Position := Rectangle57.Position;
if n = 14 then
Image14.Position := Rectangle57.Position;
if n = 15 then
Image15.Position := Rectangle57.Position;
if n = 16 then
Image16.Position := Rectangle57.Position;
if n = 17 then
Image17.Position := Rectangle57.Position;
if n = 18 then
Image18.Position := Rectangle57.Position;
if n = 19 then
Image19.Position := Rectangle57.Position;
if n = 20 then
Image20.Position := Rectangle57.Position;
if n = 21 then
Image21.Position := Rectangle57.Position;
if n = 22 then
Image22.Position := Rectangle57.Position;
if n = 23 then
Image23.Position := Rectangle57.Position;
if n = 24 then
Image24.Position := Rectangle57.Position;
if n = 25 then

Image25.Position := Rectangle57.Position;
if n = 26 then
Image26.Position := Rectangle57.Position;
if n = 27 then
Image27.Position := Rectangle57.Position;
if n = 28 then
Image28.Position := Rectangle57.Position;
if n = 29 then
Image29.Position := Rectangle57.Position;
if n = 30 then
Image30.Position := Rectangle57.Position;
if n = 31 then
Image31.Position := Rectangle57.Position;
if n = 32 then
Image32.Position := Rectangle57.Position;
end;
procedure TForm1.Rectangle58Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle58.Position;
if n = 2 then
Image2.Position := Rectangle58.Position;
if n = 3 then
Image3.Position := Rectangle58.Position;
if n = 4 then
Image4.Position := Rectangle58.Position;
if n = 5 then
Image5.Position := Rectangle58.Position;
if n = 6 then
Image6.Position := Rectangle58.Position;
if n = 7 then
Image7.Position := Rectangle58.Position;
if n = 8 then
Image8.Position := Rectangle58.Position;
if n = 9 then
Image9.Position := Rectangle58.Position;
if n = 10 then
Image10.Position := Rectangle58.Position;
if n = 11 then
Image11.Position := Rectangle58.Position;
if n = 12 then
Image12.Position := Rectangle58.Position;
if n = 13 then
Image13.Position := Rectangle58.Position;
if n = 14 then
Image14.Position := Rectangle58.Position;
if n = 15 then

Image15.Position := Rectangle58.Position;
if n = 16 then
Image16.Position := Rectangle58.Position;
if n = 17 then
Image17.Position := Rectangle58.Position;
if n = 18 then
Image18.Position := Rectangle58.Position;
if n = 19 then
Image19.Position := Rectangle58.Position;
if n = 20 then
Image20.Position := Rectangle58.Position;
if n = 21 then
Image21.Position := Rectangle58.Position;
if n = 22 then
Image22.Position := Rectangle58.Position;
if n = 23 then
Image23.Position := Rectangle58.Position;
if n = 24 then
Image24.Position := Rectangle58.Position;
if n = 25 then
Image25.Position := Rectangle58.Position;
if n = 26 then
Image26.Position := Rectangle58.Position;
if n = 27 then
Image27.Position := Rectangle58.Position;
if n = 28 then
Image28.Position := Rectangle58.Position;
if n = 29 then
Image29.Position := Rectangle58.Position;
if n = 30 then
Image30.Position := Rectangle58.Position;
if n = 31 then
Image31.Position := Rectangle58.Position;
if n = 32 then
Image32.Position := Rectangle58.Position;
end;
procedure TForm1.Rectangle59Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle59.Position;
if n = 2 then
Image2.Position := Rectangle59.Position;
if n = 3 then
Image3.Position := Rectangle59.Position;
if n = 4 then
Image4.Position := Rectangle59.Position;
if n = 5 then

Image5.Position := Rectangle59.Position;
if n = 6 then
Image6.Position := Rectangle59.Position;
if n = 7 then
Image7.Position := Rectangle59.Position;
if n = 8 then
Image8.Position := Rectangle59.Position;
if n = 9 then
Image9.Position := Rectangle59.Position;
if n = 10 then
Image10.Position := Rectangle59.Position;
if n = 11 then
Image11.Position := Rectangle59.Position;
if n = 12 then
Image12.Position := Rectangle59.Position;
if n = 13 then
Image13.Position := Rectangle59.Position;
if n = 14 then
Image14.Position := Rectangle59.Position;
if n = 15 then
Image15.Position := Rectangle59.Position;
if n = 16 then
Image16.Position := Rectangle59.Position;
if n = 17 then
Image17.Position := Rectangle59.Position;
if n = 18 then
Image18.Position := Rectangle59.Position;
if n = 19 then
Image19.Position := Rectangle59.Position;
if n = 20 then
Image20.Position := Rectangle59.Position;
if n = 21 then
Image21.Position := Rectangle59.Position;
if n = 22 then
Image22.Position := Rectangle59.Position;
if n = 23 then
Image23.Position := Rectangle59.Position;
if n = 24 then
Image24.Position := Rectangle59.Position;
if n = 25 then
Image25.Position := Rectangle59.Position;
if n = 26 then
Image26.Position := Rectangle59.Position;
if n = 27 then
Image27.Position := Rectangle59.Position;
if n = 28 then
Image28.Position := Rectangle59.Position;
if n = 29 then

Image29.Position := Rectangle59.Position;
if n = 30 then
Image30.Position := Rectangle59.Position;
if n = 31 then
Image31.Position := Rectangle59.Position;
if n = 32 then
Image32.Position := Rectangle59.Position;
end;
procedure TForm1.Rectangle5Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle5.Position;
if n = 2 then
Image2.Position := Rectangle5.Position;
if n = 3 then
Image3.Position := Rectangle5.Position;
if n = 4 then
Image4.Position := Rectangle5.Position;
if n = 5 then
Image5.Position := Rectangle5.Position;
if n = 6 then
Image6.Position := Rectangle5.Position;
if n = 7 then
Image7.Position := Rectangle5.Position;
if n = 8 then
Image8.Position := Rectangle5.Position;
if n = 9 then
Image9.Position := Rectangle5.Position;
if n = 10 then
Image10.Position := Rectangle5.Position;
if n = 11 then
Image11.Position := Rectangle5.Position;
if n = 12 then
Image12.Position := Rectangle5.Position;
if n = 13 then
Image13.Position := Rectangle5.Position;
if n = 14 then
Image14.Position := Rectangle5.Position;
if n = 15 then
Image15.Position := Rectangle5.Position;
if n = 16 then
Image16.Position := Rectangle5.Position;
if n = 17 then
Image17.Position := Rectangle5.Position;
if n = 18 then
Image18.Position := Rectangle5.Position;
if n = 19 then

Image19.Position := Rectangle5.Position;
if n = 20 then
Image20.Position := Rectangle5.Position;
if n = 21 then
Image21.Position := Rectangle5.Position;
if n = 22 then
Image22.Position := Rectangle5.Position;
if n = 23 then
Image23.Position := Rectangle5.Position;
if n = 24 then
Image24.Position := Rectangle5.Position;
if n = 25 then
Image25.Position := Rectangle5.Position;
if n = 26 then
Image26.Position := Rectangle5.Position;
if n = 27 then
Image27.Position := Rectangle5.Position;
if n = 28 then
Image28.Position := Rectangle5.Position;
if n = 29 then
Image29.Position := Rectangle5.Position;
if n = 30 then
Image30.Position := Rectangle5.Position;
if n = 31 then
Image31.Position := Rectangle5.Position;
if n = 32 then
Image32.Position := Rectangle5.Position;
end;
procedure TForm1.Rectangle60Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle60.Position;
if n = 2 then
Image2.Position := Rectangle60.Position;
if n = 3 then
Image3.Position := Rectangle60.Position;
if n = 4 then
Image4.Position := Rectangle60.Position;
if n = 5 then
Image5.Position := Rectangle60.Position;
if n = 6 then
Image6.Position := Rectangle60.Position;
if n = 7 then
Image7.Position := Rectangle60.Position;
if n = 8 then
Image8.Position := Rectangle60.Position;
if n = 9 then

Image9.Position := Rectangle60.Position;
if n = 10 then
Image10.Position := Rectangle60.Position;
if n = 11 then
Image11.Position := Rectangle60.Position;
if n = 12 then
Image12.Position := Rectangle60.Position;
if n = 13 then
Image13.Position := Rectangle60.Position;
if n = 14 then
Image14.Position := Rectangle60.Position;
if n = 15 then
Image15.Position := Rectangle60.Position;
if n = 16 then
Image16.Position := Rectangle60.Position;
if n = 17 then
Image17.Position := Rectangle60.Position;
if n = 18 then
Image18.Position := Rectangle60.Position;
if n = 19 then
Image19.Position := Rectangle60.Position;
if n = 20 then
Image20.Position := Rectangle60.Position;
if n = 21 then
Image21.Position := Rectangle60.Position;
if n = 22 then
Image22.Position := Rectangle60.Position;
if n = 23 then
Image23.Position := Rectangle60.Position;
if n = 24 then
Image24.Position := Rectangle60.Position;
if n = 25 then
Image25.Position := Rectangle60.Position;
if n = 26 then
Image26.Position := Rectangle60.Position;
if n = 27 then
Image27.Position := Rectangle60.Position;
if n = 28 then
Image28.Position := Rectangle60.Position;
if n = 29 then
Image29.Position := Rectangle60.Position;
if n = 30 then
Image30.Position := Rectangle60.Position;
if n = 31 then
Image31.Position := Rectangle60.Position;
if n = 32 then
Image32.Position := Rectangle60.Position;
end;

procedure TForm1.Rectangle61Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle61.Position;
if n = 2 then
Image2.Position := Rectangle61.Position;
if n = 3 then
Image3.Position := Rectangle61.Position;
if n = 4 then
Image4.Position := Rectangle61.Position;
if n = 5 then
Image5.Position := Rectangle61.Position;
if n = 6 then
Image6.Position := Rectangle61.Position;
if n = 7 then
Image7.Position := Rectangle61.Position;
if n = 8 then
Image8.Position := Rectangle61.Position;
if n = 9 then
Image9.Position := Rectangle61.Position;
if n = 10 then
Image10.Position := Rectangle61.Position;
if n = 11 then
Image11.Position := Rectangle61.Position;
if n = 12 then
Image12.Position := Rectangle61.Position;
if n = 13 then
Image13.Position := Rectangle61.Position;
if n = 14 then
Image14.Position := Rectangle61.Position;
if n = 15 then
Image15.Position := Rectangle61.Position;
if n = 16 then
Image16.Position := Rectangle61.Position;
if n = 17 then
Image17.Position := Rectangle61.Position;
if n = 18 then
Image18.Position := Rectangle61.Position;
if n = 19 then
Image19.Position := Rectangle61.Position;
if n = 20 then
Image20.Position := Rectangle61.Position;
if n = 21 then
Image21.Position := Rectangle61.Position;
if n = 22 then
Image22.Position := Rectangle61.Position;
if n = 23 then

Image23.Position := Rectangle61.Position;
if n = 24 then
Image24.Position := Rectangle61.Position;
if n = 25 then
Image25.Position := Rectangle61.Position;
if n = 26 then
Image26.Position := Rectangle61.Position;
if n = 27 then
Image27.Position := Rectangle61.Position;
if n = 28 then
Image28.Position := Rectangle61.Position;
if n = 29 then
Image29.Position := Rectangle61.Position;
if n = 30 then
Image30.Position := Rectangle61.Position;
if n = 31 then
Image31.Position := Rectangle61.Position;
if n = 32 then
Image32.Position := Rectangle61.Position;
end;
procedure TForm1.Rectangle62Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle62.Position;
if n = 2 then
Image2.Position := Rectangle62.Position;
if n = 3 then
Image3.Position := Rectangle62.Position;
if n = 4 then
Image4.Position := Rectangle62.Position;
if n = 5 then
Image5.Position := Rectangle62.Position;
if n = 6 then
Image6.Position := Rectangle62.Position;
if n = 7 then
Image7.Position := Rectangle62.Position;
if n = 8 then
Image8.Position := Rectangle62.Position;
if n = 9 then
Image9.Position := Rectangle62.Position;
if n = 10 then
Image10.Position := Rectangle62.Position;
if n = 11 then
Image11.Position := Rectangle62.Position;
if n = 12 then
Image12.Position := Rectangle62.Position;
if n = 13 then

Image13.Position := Rectangle62.Position;
if n = 14 then
Image14.Position := Rectangle62.Position;
if n = 15 then
Image15.Position := Rectangle62.Position;
if n = 16 then
Image16.Position := Rectangle62.Position;
if n = 17 then
Image17.Position := Rectangle62.Position;
if n = 18 then
Image18.Position := Rectangle62.Position;
if n = 19 then
Image19.Position := Rectangle62.Position;
if n = 20 then
Image20.Position := Rectangle62.Position;
if n = 21 then
Image21.Position := Rectangle62.Position;
if n = 22 then
Image22.Position := Rectangle62.Position;
if n = 23 then
Image23.Position := Rectangle62.Position;
if n = 24 then
Image24.Position := Rectangle62.Position;
if n = 25 then
Image25.Position := Rectangle62.Position;
if n = 26 then
Image26.Position := Rectangle62.Position;
if n = 27 then
Image27.Position := Rectangle62.Position;
if n = 28 then
Image28.Position := Rectangle62.Position;
if n = 29 then
Image29.Position := Rectangle62.Position;
if n = 30 then
Image30.Position := Rectangle62.Position;
if n = 31 then
Image31.Position := Rectangle62.Position;
if n = 32 then
Image32.Position := Rectangle62.Position;
end;
procedure TForm1.Rectangle63Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle63.Position;
if n = 2 then
Image2.Position := Rectangle63.Position;
if n = 3 then

Image3.Position := Rectangle63.Position;
if n = 4 then
Image4.Position := Rectangle63.Position;
if n = 5 then
Image5.Position := Rectangle63.Position;
if n = 6 then
Image6.Position := Rectangle63.Position;
if n = 7 then
Image7.Position := Rectangle63.Position;
if n = 8 then
Image8.Position := Rectangle63.Position;
if n = 9 then
Image9.Position := Rectangle63.Position;
if n = 10 then
Image10.Position := Rectangle63.Position;
if n = 11 then
Image11.Position := Rectangle63.Position;
if n = 12 then
Image12.Position := Rectangle63.Position;
if n = 13 then
Image13.Position := Rectangle63.Position;
if n = 14 then
Image14.Position := Rectangle63.Position;
if n = 15 then
Image15.Position := Rectangle63.Position;
if n = 16 then
Image16.Position := Rectangle63.Position;
if n = 17 then
Image17.Position := Rectangle63.Position;
if n = 18 then
Image18.Position := Rectangle63.Position;
if n = 19 then
Image19.Position := Rectangle63.Position;
if n = 20 then
Image20.Position := Rectangle63.Position;
if n = 21 then
Image21.Position := Rectangle63.Position;
if n = 22 then
Image22.Position := Rectangle63.Position;
if n = 23 then
Image23.Position := Rectangle63.Position;
if n = 24 then
Image24.Position := Rectangle63.Position;
if n = 25 then
Image25.Position := Rectangle63.Position;
if n = 26 then
Image26.Position := Rectangle63.Position;
if n = 27 then

Image27.Position := Rectangle63.Position;
if n = 28 then
Image28.Position := Rectangle63.Position;
if n = 29 then
Image29.Position := Rectangle63.Position;
if n = 30 then
Image30.Position := Rectangle63.Position;
if n = 31 then
Image31.Position := Rectangle63.Position;
if n = 32 then
Image32.Position := Rectangle63.Position;
end;
procedure TForm1.Rectangle64Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle64.Position;
if n = 2 then
Image2.Position := Rectangle64.Position;
if n = 3 then
Image3.Position := Rectangle64.Position;
if n = 4 then
Image4.Position := Rectangle64.Position;
if n = 5 then
Image5.Position := Rectangle64.Position;
if n = 6 then
Image6.Position := Rectangle64.Position;
if n = 7 then
Image7.Position := Rectangle64.Position;
if n = 8 then
Image8.Position := Rectangle64.Position;
if n = 9 then
Image9.Position := Rectangle64.Position;
if n = 10 then
Image10.Position := Rectangle64.Position;
if n = 11 then
Image11.Position := Rectangle64.Position;
if n = 12 then
Image12.Position := Rectangle64.Position;
if n = 13 then
Image13.Position := Rectangle64.Position;
if n = 14 then
Image14.Position := Rectangle64.Position;
if n = 15 then
Image15.Position := Rectangle64.Position;
if n = 16 then
Image16.Position := Rectangle64.Position;
if n = 17 then

Image17.Position := Rectangle64.Position;
if n = 18 then
Image18.Position := Rectangle64.Position;
if n = 19 then
Image19.Position := Rectangle64.Position;
if n = 20 then
Image20.Position := Rectangle64.Position;
if n = 21 then
Image21.Position := Rectangle64.Position;
if n = 22 then
Image22.Position := Rectangle64.Position;
if n = 23 then
Image23.Position := Rectangle64.Position;
if n = 24 then
Image24.Position := Rectangle64.Position;
if n = 25 then
Image25.Position := Rectangle64.Position;
if n = 26 then
Image26.Position := Rectangle64.Position;
if n = 27 then
Image27.Position := Rectangle64.Position;
if n = 28 then
Image28.Position := Rectangle64.Position;
if n = 29 then
Image29.Position := Rectangle64.Position;
if n = 30 then
Image30.Position := Rectangle64.Position;
if n = 31 then
Image31.Position := Rectangle64.Position;
if n = 32 then
Image32.Position := Rectangle64.Position;
end;
procedure TForm1.Rectangle6Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle6.Position;
if n = 2 then
Image2.Position := Rectangle6.Position;
if n = 3 then
Image3.Position := Rectangle6.Position;
if n = 4 then
Image4.Position := Rectangle6.Position;
if n = 5 then
Image5.Position := Rectangle6.Position;
if n = 6 then
Image6.Position := Rectangle6.Position;
if n = 7 then

Image7.Position := Rectangle6.Position;
if n = 8 then
Image8.Position := Rectangle6.Position;
if n = 9 then
Image9.Position := Rectangle6.Position;
if n = 10 then
Image10.Position := Rectangle6.Position;
if n = 11 then
Image11.Position := Rectangle6.Position;
if n = 12 then
Image12.Position := Rectangle6.Position;
if n = 13 then
Image13.Position := Rectangle6.Position;
if n = 14 then
Image14.Position := Rectangle6.Position;
if n = 15 then
Image15.Position := Rectangle6.Position;
if n = 16 then
Image16.Position := Rectangle6.Position;
if n = 17 then
Image17.Position := Rectangle6.Position;
if n = 18 then
Image18.Position := Rectangle6.Position;
if n = 19 then
Image19.Position := Rectangle6.Position;
if n = 20 then
Image20.Position := Rectangle6.Position;
if n = 21 then
Image21.Position := Rectangle6.Position;
if n = 22 then
Image22.Position := Rectangle6.Position;
if n = 23 then
Image23.Position := Rectangle6.Position;
if n = 24 then
Image24.Position := Rectangle6.Position;
if n = 25 then
Image25.Position := Rectangle6.Position;
if n = 26 then
Image26.Position := Rectangle6.Position;
if n = 27 then
Image27.Position := Rectangle6.Position;
if n = 28 then
Image28.Position := Rectangle6.Position;
if n = 29 then
Image29.Position := Rectangle6.Position;
if n = 30 then
Image30.Position := Rectangle6.Position;
if n = 31 then

Image31.Position := Rectangle6.Position;
if n = 32 then
Image32.Position := Rectangle6.Position;
end;
procedure TForm1.Rectangle7Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle7.Position;
if n = 2 then
Image2.Position := Rectangle7.Position;
if n = 3 then
Image3.Position := Rectangle7.Position;
if n = 4 then
Image4.Position := Rectangle7.Position;
if n = 5 then
Image5.Position := Rectangle7.Position;
if n = 6 then
Image6.Position := Rectangle7.Position;
if n = 7 then
Image7.Position := Rectangle7.Position;
if n = 8 then
Image8.Position := Rectangle7.Position;
if n = 9 then
Image9.Position := Rectangle7.Position;
if n = 10 then
Image10.Position := Rectangle7.Position;
if n = 11 then
Image11.Position := Rectangle7.Position;
if n = 12 then
Image12.Position := Rectangle7.Position;
if n = 13 then
Image13.Position := Rectangle7.Position;
if n = 14 then
Image14.Position := Rectangle7.Position;
if n = 15 then
Image15.Position := Rectangle7.Position;
if n = 16 then
Image16.Position := Rectangle7.Position;
if n = 17 then
Image17.Position := Rectangle7.Position;
if n = 18 then
Image18.Position := Rectangle7.Position;
if n = 19 then
Image19.Position := Rectangle7.Position;
if n = 20 then
Image20.Position := Rectangle7.Position;
if n = 21 then

Image21.Position := Rectangle7.Position;
if n = 22 then
Image22.Position := Rectangle7.Position;
if n = 23 then
Image23.Position := Rectangle7.Position;
if n = 24 then
Image24.Position := Rectangle7.Position;
if n = 25 then
Image25.Position := Rectangle7.Position;
if n = 26 then
Image26.Position := Rectangle7.Position;
if n = 27 then
Image27.Position := Rectangle7.Position;
if n = 28 then
Image28.Position := Rectangle7.Position;
if n = 29 then
Image29.Position := Rectangle7.Position;
if n = 30 then
Image30.Position := Rectangle7.Position;
if n = 31 then
Image31.Position := Rectangle7.Position;
if n = 32 then
Image32.Position := Rectangle7.Position;
end;
procedure TForm1.Rectangle8Click(Sender: TObject);
begin
if n = 1 then
Image1.Position := Rectangle8.Position;
if n = 2 then
Image2.Position := Rectangle8.Position;
if n = 3 then
Image3.Position := Rectangle8.Position;
if n = 4 then
Image4.Position := Rectangle8.Position;
if n = 5 then
Image5.Position := Rectangle8.Position;
if n = 6 then
Image6.Position := Rectangle8.Position;
if n = 7 then
Image7.Position := Rectangle8.Position;
if n = 8 then
Image8.Position := Rectangle8.Position;
if n = 9 then
Image9.Position := Rectangle8.Position;
if n = 10 then
Image10.Position := Rectangle8.Position;
if n = 11 then

Image11.Position := Rectangle8.Position;
if n = 12 then
Image12.Position := Rectangle8.Position;
if n = 13 then
Image13.Position := Rectangle8.Position;
if n = 14 then
Image14.Position := Rectangle8.Position;
if n = 15 then
Image15.Position := Rectangle8.Position;
if n = 16 then
Image16.Position := Rectangle8.Position;
if n = 17 then
Image17.Position := Rectangle8.Position;
if n = 18 then
Image18.Position := Rectangle8.Position;
if n = 19 then
Image19.Position := Rectangle8.Position;
if n = 20 then
Image20.Position := Rectangle8.Position;
if n = 21 then
Image21.Position := Rectangle8.Position;
if n = 22 then
Image22.Position := Rectangle8.Position;
if n = 23 then
Image23.Position := Rectangle8.Position;
if n = 24 then
Image24.Position := Rectangle8.Position;
if n = 25 then
Image25.Position := Rectangle8.Position;
if n = 26 then
Image26.Position := Rectangle8.Position;
if n = 27 then
Image27.Position := Rectangle8.Position;
if n = 28 then
Image28.Position := Rectangle8.Position;
if n = 29 then
Image29.Position := Rectangle8.Position;
if n = 30 then
Image30.Position := Rectangle8.Position;
if n = 31 then
Image31.Position := Rectangle8.Position;
if n = 32 then
Image32.Position := Rectangle8.Position;
end;
procedure TForm1.Rectangle9Click(Sender: TObject);
begin
if n = 1 then

Image1.Position := Rectangle9.Position;
if n = 2 then
Image2.Position := Rectangle9.Position;
if n = 3 then
Image3.Position := Rectangle9.Position;
if n = 4 then
Image4.Position := Rectangle9.Position;
if n = 5 then
Image5.Position := Rectangle9.Position;
if n = 6 then
Image6.Position := Rectangle9.Position;
if n = 7 then
Image7.Position := Rectangle9.Position;
if n = 8 then
Image8.Position := Rectangle9.Position;
if n = 9 then
Image9.Position := Rectangle9.Position;
if n = 10 then
Image10.Position := Rectangle9.Position;
if n = 11 then
Image11.Position := Rectangle9.Position;
if n = 12 then
Image12.Position := Rectangle9.Position;
if n = 13 then
Image13.Position := Rectangle9.Position;
if n = 14 then
Image14.Position := Rectangle9.Position;
if n = 15 then
Image15.Position := Rectangle9.Position;
if n = 16 then
Image16.Position := Rectangle9.Position;
if n = 17 then
Image17.Position := Rectangle9.Position;
if n = 18 then
Image18.Position := Rectangle9.Position;
if n = 19 then
Image19.Position := Rectangle9.Position;
if n = 20 then
Image20.Position := Rectangle9.Position;
if n = 21 then
Image21.Position := Rectangle9.Position;
if n = 22 then
Image22.Position := Rectangle9.Position;
if n = 23 then
Image23.Position := Rectangle9.Position;
if n = 24 then
Image24.Position := Rectangle9.Position;
if n = 25 then

Image25.Position := Rectangle9.Position;
if n = 26 then
Image26.Position := Rectangle9.Position;
if n = 27 then
Image27.Position := Rectangle9.Position;
if n = 28 then
Image28.Position := Rectangle9.Position;
if n = 29 then
Image29.Position := Rectangle9.Position;
if n = 30 then
Image30.Position := Rectangle9.Position;
if n = 31 then
Image31.Position := Rectangle9.Position;
if n = 32 then
Image32.Position := Rectangle9.Position;
end;
end.
10. Пинг Понг

procedure TForm1.Dummy1Render(Sender: TObject; Context: TContext3D);
begin
Context.SetCameraAngleOfView(0.01);

With Dummy1.Scale do Point:=Point3d(1,1,1)*0.01/45;
end;
procedure TForm1.FloatAnimation1Finish(Sender: TObject);
begin
NextLavel;
end;
procedure TForm1.FloatAnimation1Process(Sender: TObject);
begin
MoveBall;
end;
procedure TForm1.FormCreate(Sender: TObject);
var V:IViewport3D;
begin
Viewport3D1.UsingDesignCamera:=true;
V:=Viewport3D1;
With TDummy(V.CurrentCamera.Parent) do ResetRotationAngle;
Speed:=0.15;
Punkte:=NullPoint3D;
Sphere1.Position.DefaultValue:=Point3D(-1,0,0); //Dir
RoundCube1.AutoCapture:=true;
RandSeed:=23;
NextLavel;
end;
procedure TForm1.MoveBall;
var D,P,M,ScaleFakt:TPoint3D; A,S:integer; R:TroundCube;
begin
With Viewport3D1 do
ScaleFakt:=Point3D(Width,Height,1)*1/Point3D(640,480,1).Length;
D:=Sphere1.Position.DefaultValue; //dir
P:=Dummy1.AbsoluteToLocal3D(Sphere1.AbsolutePosition);//pos
M:=(SizeOf3D(Dummy1)-SizeOf3D(Sphere1))*0.5;
P:=P+D.Normalize*ScaleFakt.Length*Speed;
if ((P.X>M.X) and (D.X>0))or((P.X21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image25Click(Sender: TObject);
begin
Image25.Opacity:=1;
cnt:=cnt+Image25.Tag;
label1.Text:=intTostr(cnt);
Image25.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image26Click(Sender: TObject);
begin
Image26.Opacity:=1;
cnt:=cnt+Image26.Tag;
label1.Text:=intTostr(cnt);

Image26.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image27Click(Sender: TObject);
begin
Image27.Opacity:=1;
cnt:=cnt+Image27.Tag;
label1.Text:=intTostr(cnt);
Image27.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image28Click(Sender: TObject);
begin
Image28.Opacity:=1;
cnt:=cnt+Image28.Tag;
label1.Text:=intTostr(cnt);
Image28.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image29Click(Sender: TObject);
begin
Image29.Opacity:=1;
cnt:=cnt+Image29.Tag;
label1.Text:=intTostr(cnt);
Image29.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image30Click(Sender: TObject);
begin
Image30.Opacity:=1;
cnt:=cnt+Image30.Tag;
label1.Text:=intTostr(cnt);
Image30.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image31Click(Sender: TObject);
begin
Image31.Opacity:=1;
cnt:=cnt+Image31.Tag;
label1.Text:=intTostr(cnt);
Image31.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;

procedure TForm1.Image32Click(Sender: TObject);
begin
Image32.Opacity:=1;
cnt:=cnt+Image32.Tag;
label1.Text:=intTostr(cnt);
Image32.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image33Click(Sender: TObject);
begin
Image33.Opacity:=1;
cnt:=cnt+Image33.Tag;
label1.Text:=intTostr(cnt);
Image33.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image34Click(Sender: TObject);
begin
Image34.Opacity:=1;
cnt:=cnt+Image34.Tag;
label1.Text:=intTostr(cnt);
Image34.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image35Click(Sender: TObject);
begin
Image35.Opacity:=1;
cnt:=cnt+Image35.Tag;
label1.Text:=intTostr(cnt);
Image35.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image36Click(Sender: TObject);
begin
Image36.Opacity:=1;
cnt:=cnt+Image36.Tag;
label1.Text:=intTostr(cnt);
Image36.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image37Click(Sender: TObject);
begin

Image37.Opacity:=1;
cnt:=cnt+Image37.Tag;
label1.Text:=intTostr(cnt);
Image37.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image38Click(Sender: TObject);
begin
Image38.Opacity:=1;
cnt:=cnt+Image38.Tag;
label1.Text:=intTostr(cnt);
Image38.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image39Click(Sender: TObject);
begin
Image39.Opacity:=1;
cnt:=cnt+Image39.Tag;
label1.Text:=intTostr(cnt);
Image39.Enabled:=false;
if cnt>=21 then Label1.Text:='Вы проиграли';
end;
procedureTForm1.Image40Click(Sender: TObject);
begin
Image40.Opacity:=1;
cnt:=cnt+Image40.Tag;
label1.Text:=intTostr(cnt);
Image40.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image41Click(Sender: TObject);
begin
Image41.Opacity:=1;
cnt:=cnt+Image41.Tag;
label1.Text:=intTostr(cnt);
Image41.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image42Click(Sender: TObject);
begin
Image42.Opacity:=1;
cnt:=cnt+Image42.Tag;
label1.Text:=intTostr(cnt);

Image42.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image43Click(Sender: TObject);
begin
Image43.Opacity:=1;
cnt:=cnt+Image43.Tag;
label1.Text:=intTostr(cnt);
Image43.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image44Click(Sender: TObject);
begin
Image44.Opacity:=1;
cnt:=cnt+Image44.Tag;
label1.Text:=intTostr(cnt);
Image44.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image45Click(Sender: TObject);
begin
Image45.Opacity:=1;
cnt:=cnt+Image45.Tag;
label1.Text:=intTostr(cnt);
Image45.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image46Click(Sender: TObject);
begin
Image46.Opacity:=1;
cnt:=cnt+Image46.Tag;
label1.Text:=intTostr(cnt);
Image46.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image47Click(Sender: TObject);
begin
Image47.Opacity:=1;
cnt:=cnt+Image47.Tag;
label1.Text:=intTostr(cnt);
Image47.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;

procedure TForm1.Image48Click(Sender: TObject);
begin
Image48.Opacity:=1;
cnt:=cnt+Image48.Tag;
label1.Text:=intTostr(cnt);
Image48.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
procedure TForm1.Image49Click(Sender: TObject);
begin
Image49.Opacity:=1;
cnt:=cnt+Image49.Tag;
label1.Text:=intTostr(cnt);
Image49.Enabled:=false;
if cnt>21 then Label1.Text:='Вы проиграли';
end;
end.
8. Игра в города

Вводить название города а в ответ выберет город по последней букве. Есть
подсказка для просмотра всего списка. Список хранится в Лист боксе. Дополнять
список можно в режиме разработчика.
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: integer;
fin: string;
begin
Label1.Text:='Нет такого';
for i := 0 to ListBox1.Count - 1 do
begin
if Edit1.Text = ListBox1.Items[i] then
begin
fin := copy(ListBox1.Items[i], Length(ListBox1.Items[i]), 1);
ListBox1.Items.Delete(i);
break;
end;
end;
Label1.Text:='Нет на эту букву';
for j := 0 to ListBox1.Count - 1 do
begin
if fin = copy(ListBox1.Items[j], 1, 1) then
begin
Label1.Text := ListBox1.Items[j];
ListBox1.Items.Delete(j);
break;
end;
end;
end;
procedure TForm1.CheckBox1Change(Sender: TObject);
begin
ListBox1.Visible:=CheckBox1.IsChecked;
end;