рефераты рефераты
Домой
Домой		 рефераты
Поиск		 рефераты
Войти		 рефераты
Контакты		 рефераты Добавить в избранное
рефераты Сделать стартовой
рефераты рефераты рефераты рефераты
рефераты
БОЛЬШАЯ ЛЕНИНГРАДСКАЯ БИБЛИОТЕКА
рефераты
 
МЕНЮ
Главная
Технология
Уголовное и уголовно-исполнительное право
Уголовное право
Уголовный процесс
Таможенная система
Транспорт
Социология
Статистика
Страхование
Строительство
Схемотехника
Туризм
Управление
Строительство и архитектура
Спорт и туризм
Социология и обществознание
Сельское лесное хозяйство и землепользование
Религия и мифология
Разное
Психология
Производство и технологии
Программирование компьютеры и кибернетика
Политология
Педагогика
Металлургия
Музыка
Налоги
Начертательная геометрия
Не сортированные
Оккультизм и уфология
Педагогика
Полиграфия
Политология
Право
Предпринимательство
Программирование и комп-ры
Экологическое право
Экология
Экономика
Экономико-математическое моделирование
Экономическая география
Экономическая теория
Эргономика
Этика
Юриспруденция
Языковедение
Физика
Философия
Финансовое право
Финансовый менеджмент финансовая математика
Финансы деньги кредит
Французский
Химия
Ценообразование
Чертежи
рефераты Программа "Ход конем" рефераты

БОЛЬШАЯ ЛЕНИНГРАДСКАЯ БИБЛИОТЕКА - РЕФЕРАТЫ - Программа "Ход конем"

Программа "Ход конем"

7

Федеральное агентство по образованию

Государственное образовательное учреждение высшего профессионального образования

«Курский государственный технический университет»

Кафедра ПО и ВТ

КУРСОВАЯ РАБОТА (ПРОЕКТ)

по дисциплине «Программирование на языках ВУ»

на тему «Ход конем»

Автор работы (проекта) А.В. Буштец

Л.М. Москаленко

Группа ПО-71

Руководитель работы (проекта) Е. А. Петрик

Работа (проект) защищена

Оценка

Председатель комиссии

Члены комиссии

1. ТЕХНИЧЕСКОЕ ЗАДАНИЕ

1.1 Введение

В настоящее время наблюдается, быстрый темп роста применения вычислительных машин в различных сферах человеческой деятельности.

Необходимо отметить, что без компьютеров и соответственно компьютерных программ не обходится не одно предприятие или фирма.

Данная программа может быть использована в фирмах, нуждающихся в программе, использующей представленный алгоритм.

1.2 Основания для разработки

Задание на курсовую работу по программированию на языках ВУ.

1.3 Назначение разработки

Написать программу движения коня по шахматной доске. Конь должен сходить заданное количество ходов по клеткам доски, не наступая на одну и туже клетку два раза.

1.3.1 Функциональное и эксплуатационное назначение изделия

Данная программа предназначена для вывода ходов коня по шахматной доске.

В работе должны быть решены следующие задачи:

1) необходимо просчитать движение коня по шахматной доске;

2) необходимо цифрами вывести ходы коня на шахматной доске.

1.3.1.1 Перечень требований пользователя к программному изделию

Должны быть предусмотрены:

* Возможность выбора клетки для коня на шахматной доске;

* Отображение ходов коня в виде шахматной доски с нумерацией

сделанных ходов.

1.3.3 Стандарты

При разработке данного программного продукта были использованы следующие ГОСТы: ГОСТ 19.701- 90 (ИСО 5807 - 85), 2.304 - 88

1.3.4 Информационная совместимость

Модули программного комплекса должны быть совместимы между собой на уровне исходного языка, а также форматов используемых данных.

1.3.5 Программные ограничения, совместимость

Программное изделие должно быть написано на языке высокого уровня Dеlphi 7.0 и работать под управлением операционной системы Windows 2000 (Windows Хр). Для запуска разработки необходимо наличие ЕХЕ - файла программы (выполняемого файла), свободной оперативной памяти компьютера.

1.3.6 Требования к составу и параметрам технических средств (аппаратные ограничения)

Для работы программного изделия требуется:

* компьютер, Intel Pentium 4 CPU 3.06 GHz. 512MB RAM$

* жесткий диск.

1.3.7 Входные данные

Входными данными для моделируемых устройств, будут являться данные, вводимые с клавиатуры. Входными данными будет являться:

* клетка старта;

* количество ходов.

1.3.8 Процессы обработки

При нажатии на файл с расширением ЕХЕ запускается ролик, рассказывающий нам о программе. После этого мы видим форму, которая состоит из шахматной доски, окон для ввода позиций х, y и количества ходов коня и двух кнопок «Начала », «Сначала». Перед началом работы программы надо ввести исходные данные мы можем, как вписать позиции начальной клетки, так и в ручную, путем нажатия на выбранную клетку мышкой, после этого надо ввести количество ходов и нажать кнопку «начало». Иначе программа выдаст сообщение о невозможности начала работы в соответствии с неправильным вводом. Через некоторое время место доски появится ее аналог с просчитанными ходами, неиспользовавшиеся клетки будут пронумерованы нулем. При нажатии на кнопку «сначала», программа вернется на начало для ввода новых данных. При нажатии на крестик в верхнем правом углу программа закроется.

1.3.9 Выходные данные

Выходные данные являются доска с просчитанными на ней ходами.

1.3.10 Результатирующие компоненты

Программное изделие должно содержать: тексты программ, содержащие собой комплекс файлов, содержащих совокупности операторов языка программирования, и готовую программу, полученную в результате компиляции исходных модулей. Для запуска программы должен присутствовать запускной файл с расширением ЕХЕ, точечные рисунки: ukaz, Безымянный, kon, и фаил wmv «logo».

1.3.11 Носители информации

Программный комплекс должен размещаться в виде исполняемых файлов на жестком диске компьютера пользователя или на другом виде носителя информации.

1.4 Требования к программной документации

Пакет прикладных программ должен быть представлен в виде текстов исходных модулей на языке Delphi 7.0, а также инструкции пользователя.

2. РАБОЧИЙ ПРОЕКТ

2.1 Общие сведения

Данная программа предназначена для расчета ходов коня по шахматной доске, с выводом результата на экран. В начале мы вводим координаты клетки, откуда начнет ходить конь, и количество ходов. Также мы можем ввести координаты клетки по-другому, соответственно выбрав ее на предложенной доске. На указанной клетке появляется фигура шахматного коня. После этого надо нажать на кнопку «начать», через некоторое время появится аналог шахматной доски с указанием расчетов ходов. Нумерация клеток будет производиться с указанной нами клетки, не использовавшиеся ячейки будут нумероваться нулем. Скриншоты работающей программы предложены на рис. 2.1.1.

2.1.1 Рисунок 1

2.2 Описание логической структуры, внешних и внутренних ограничений и характеристик

Модуль Unit1. Рис.2

2.1.1 Рисунок 2

2.2.1.1 Процедура epEfButton1Click объекта TF1k

Данная процедура предназначена для преобразования вводимых данных во внутренний формат для устройства с одним блоком памяти для обрабатываемого значения.

2.2.1.2 Программные ограничения

Для работы функции необходимы динамические библиотеки и ресурсы операционной системы Windows плюс библиотеки Rxlib, MediaPack отвечающие инициализацию, работу с графическим интерфейсом пользователя, распределение памяти и ресурса процессора под задачи, обрабатывающие сообщения и ошибки операционной среды.

Для того чтобы функция могла быть выполнена, необходимо наличие файла unit1.pas, где и определена сама функция.

2.2.1.3 Входные данные

Таблица 3.1

Наименование

Тип

Назначение

Edit1.Text

TEdit

Позиция по х

Edit2.Text

TEdit

Позиция по y

Edit3.Text

TEdit

Количество ходов

2.2.1.4 Выходные данные

В качестве выходных, выступают преобразованные данные модуля unit1, перечисленные в таблице.

Таблица 3.2

Наименование

Тип

Назначение

StringGrid1

TStringGrid

Обработанные ходы

2.2.1.5 Методы решения

Процедура построена на основе управляющего автомата устройства со специальными формулами и обрабатываемым словом, хранящемся в одном блоке памяти.

2.2.2 Процедура epEfButton2Click объекта TF1k

Данная процедура предназначена для закрывания формы.

2.2.3 Процедура epEfButton3Click объекта TF1k

Данная процедура предназначена для удаления предыдущих расчетов и подготовки программы для новых установок.

2.2.4Процедура Image4-67Click объекта TF1k

Данная процедура предназначена для установки начальных данных.

2.2.4.1 Входные данные

Таблица 3.3

Наименование

Тип

Назначение

Image4-67

TImage

Позиция на доске

2.2.4.2Выходные данные

Таблица 3.4

Наименование

Тип

Назначение

Edit1.Text

TEdit

Позиция по х

Edit2.Text

TEdit

Позиция по y

Edit3.Text

TEdit

Количество ходов

2.2.5 Процедура Panel1Click объекта TF2k

Данная процедура предназначена для перехода от видео ролика на саму программу.

2.2.6 Функция NextStep объекта TF1k

Данная функция предназначена для расчета вводимых данных, требуемого результата.

2.3 Внутренние данные

Таблица 3.5

Наименование

Тип

Назначение

x, y

Integer

Индексные адреса начала отсчета

allsteps

Integer

Количество ходов

SqArr

Array[1..8,1..8] of Integer

Буфер для хранения выходных данных

2.3.1 Методы решения

Алгоритм функции см. в приложении 1.

ПРИЛОЖЕНИЕ 1

x, y, allsteps

step>=allsteps Да

Нет

function NextStep StringGrid

ПРИЛОЖЕНИЕ 2

Код программы

unit Unit2;

interface

uses

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

Dialogs, MPlayer, ExtCtrls, regions;

type

TForm2 = class(TForm)

epRegionForm1: TepRegionForm;

Panel1: TPanel;

MediaPlayer1: TMediaPlayer;

procedure Panel1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Panel1Click(Sender: TObject);

begin

form2.Hide;

Form1.Show;

end;

end.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Grids, EPLabels, VCLBase, EPButtons, ExtCtrls, regions;

type

TForm1 = class(TForm)

Image1: TImage;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

StringGrid1: TStringGrid;

Image2: TImage;

Panel1: TPanel;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image7: TImage;

Image8: TImage;

Image9: TImage;

Image10: TImage;

Image11: TImage;

Image12: TImage;

Image13: TImage;

Image14: TImage;

Image15: TImage;

Image16: TImage;

Image17: TImage;

Image18: TImage;

Image19: TImage;

Image20: TImage;

Image21: TImage;

Image22: TImage;

Image23: TImage;

Image24: TImage;

Image25: TImage;

Image26: TImage;

Image27: TImage;

Image28: TImage;

Image29: TImage;

Image30: TImage;

Image31: TImage;

Image32: TImage;

Image33: TImage;

Image34: TImage;

Image35: TImage;

Image36: TImage;

Image37: TImage;

Image38: TImage;

Image39: TImage;

Image40: TImage;

Image41: TImage;

Image42: TImage;

Image43: TImage;

Image44: TImage;

Image45: TImage;

Image46: TImage;

Image47: TImage;

Image48: TImage;

Image49: TImage;

Image50: TImage;

Image51: TImage;

Image52: TImage;

Image53: TImage;

Image54: TImage;

Image55: TImage;

Image56: TImage;

Image57: TImage;

Image58: TImage;

Image59: TImage;

Image60: TImage;

Image61: TImage;

Image62: TImage;

Image63: TImage;

Image64: TImage;

Image65: TImage;

Image66: TImage;

Image67: TImage;

Image68: TImage;

procedure epEfButton1Click(Sender: TObject);

procedure epEfButton2Click(Sender: TObject);

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image9MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image10MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image11MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image12MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image13MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image14MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image15MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image16MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image17MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image18MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image19MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image20MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image21MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image22MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image23MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image24MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image25MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image26MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image27MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image28MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image29MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image30MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image31MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image32MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image33MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image34MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image35MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image36MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image37MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image38MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image39MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image40MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image41MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image42MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image43MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image44MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image45MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image46MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image47MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image48MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image49MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image50MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image51MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image52MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image53MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image54MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image55MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image56MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image57MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image58MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image59MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image60MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image61MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image62MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image63MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image64MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image65MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image66MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image67MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image4Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure Image8Click(Sender: TObject);

procedure Image9Click(Sender: TObject);

procedure Image10Click(Sender: TObject);

procedure Image11Click(Sender: TObject);

procedure Image12Click(Sender: TObject);

procedure Image13Click(Sender: TObject);

procedure Image14Click(Sender: TObject);

procedure Image15Click(Sender: TObject);

procedure Image16Click(Sender: TObject);

procedure Image17Click(Sender: TObject);

procedure Image18Click(Sender: TObject);

procedure Image19Click(Sender: TObject);

procedure Image20Click(Sender: TObject);

procedure Image21Click(Sender: TObject);

procedure Image22Click(Sender: TObject);

procedure Image23Click(Sender: TObject);

procedure Image24Click(Sender: TObject);

procedure Image25Click(Sender: TObject);

procedure Image26Click(Sender: TObject);

procedure Image27Click(Sender: TObject);

procedure Image28Click(Sender: TObject);

procedure Image29Click(Sender: TObject);

procedure Image30Click(Sender: TObject);

procedure Image31Click(Sender: TObject);

procedure Image32Click(Sender: TObject);

procedure Image33Click(Sender: TObject);

procedure Image34Click(Sender: TObject);

procedure Image35Click(Sender: TObject);

procedure Image36Click(Sender: TObject);

procedure Image37Click(Sender: TObject);

procedure Image38Click(Sender: TObject);

procedure Image39Click(Sender: TObject);

procedure Image40Click(Sender: TObject);

procedure Image41Click(Sender: TObject);

procedure Image42Click(Sender: TObject);

procedure Image43Click(Sender: TObject);

procedure Image44Click(Sender: TObject);

procedure Image45Click(Sender: TObject);

procedure Image46Click(Sender: TObject);

procedure Image47Click(Sender: TObject);

procedure Image48Click(Sender: TObject);

procedure Image49Click(Sender: TObject);

procedure Image50Click(Sender: TObject);

procedure Image51Click(Sender: TObject);

procedure Image52Click(Sender: TObject);

procedure Image53Click(Sender: TObject);

procedure Image54Click(Sender: TObject);

procedure Image55Click(Sender: TObject);

procedure Image56Click(Sender: TObject);

procedure Image57Click(Sender: TObject);

procedure Image58Click(Sender: TObject);

procedure Image59Click(Sender: TObject);

procedure Image60Click(Sender: TObject);

procedure Image61Click(Sender: TObject);

procedure Image62Click(Sender: TObject);

procedure Image63Click(Sender: TObject);

procedure Image64Click(Sender: TObject);

procedure Image65Click(Sender: TObject);

procedure Image66Click(Sender: TObject);

procedure Image67Click(Sender: TObject);

procedure epEfButton3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

type

sqArr = Array[1..8, 1..8] of integer;

var

x, y: integer;

f: TextFile;

arr: sqArr;

allsteps: integer;

function NextStep(arr:sqArr; x, y: Byte; step: Word): Boolean;

begin

Result := False;

if (x >= 1) and (y >= 1) and (x <= 8) and (y <= 8) then

begin

if arr[x, y] = 0 then

begin

inc(step);

arr[x, y] := step;

Result := True;

if step >= allsteps then

for x := 1 to 8 do

begin

for y := 1 to 8 do

Form1.StringGrid1.Cells[y-1,x-1]:=IntToStr(arr[x][y]);

end

else begin

if not NextStep(arr, x + 1, y + 2, step) then

if not NextStep(arr, x - 1, y + 2, step) then

if not NextStep(arr, x + 1, y - 2, step) then

if not NextStep(arr, x - 1, y - 2, step) then

if not NextStep(arr, x + 2, y + 1, step) then

if not NextStep(arr, x + 2, y - 1, step) then

if not NextStep(arr, x - 2, y + 1, step) then

if not NextStep(arr, x - 2, y - 1, step) then

Result := False;

end;

end;

end;

end;

procedure TForm1.epEfButton1Click(Sender: TObject);

begin

x:=StrtoInt(Edit1.Text);

y:=StrtoInt(Edit2.Text);

allsteps:=StrtoInt(Edit3.Text);

if (x='')or(y='')or(allsteps='')

then

Showmessage('Недостаточно условия для выполнения!')

else

begin

Panel1.Visible:=false;

if allsteps>63 then

Showmessage('Недопустимое кол-во ходов!!!')

else

ZeroMemory(@arr, SizeOf(arr));

NextStep(arr, x, y, 0);

end;

end;

procedure TForm1.epEfButton2Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image4.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image5.Picture.LoadFromFile('ukaz.bmp');

Image4.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image6.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image7.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image8.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image9MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image9.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image10MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image10.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image11MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image11.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image12MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image12.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image13MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image13.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image14MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image14.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image15MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image15.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image16MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image16.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image17MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image17.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image18MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image18.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image19MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image19.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image20MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image20.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image21MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image21.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image22MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image22.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image23MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image23.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image24MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image24.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image25MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image25.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image26MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image26.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image27MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image27.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image28MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image28.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image29MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image29.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image30MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image30.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image31MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image31.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image32MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image32.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image33MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image33.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image34MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image34.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image35MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image35.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image36MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image36.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image37MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image37.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image38MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image38.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image39MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image39.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image40MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image40.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image41MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image41.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image42MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image42.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image43MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image43.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image44MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image44.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image45MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image45.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image46MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image46.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image47MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image47.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image48MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image48.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image49MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image49.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image50MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image50.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image51MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image51.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image52MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image52.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image53MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image53.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image54MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image54.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image55MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image55.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image56MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image56.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image57MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image57.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image58MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image58.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image59MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image59.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image60MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image60.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image61MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image61.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image62MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image62.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image63MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image63.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image64MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image64.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image65MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image65.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image66MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image66.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

end;

procedure TForm1.Image67MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image67.Picture.LoadFromFile('ukaz.bmp');

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

end;

procedure TForm1.Image4Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image4.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image5Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image5.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image6Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image6.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image7Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image7.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image8Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='5';

Panel1.Enabled:=false;

Image8.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image9Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image9.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image10Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image10.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image11Click(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image11.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image12Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image12.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image13Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image13.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image14Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image14.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image15Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image15.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image16Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='5';

Panel1.Enabled:=false;

Image16.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image17Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image17.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image18Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image18.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image19Click(Sender: TObject);

begin

Edit1.Text:='2';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image19.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image20Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image20.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image21Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image21.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image22Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image22.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image23Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image23.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image24Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='5';

Panel1.Enabled:=false;

Image24.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image25Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image25.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image26Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image26.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image27Click(Sender: TObject);

begin

Edit1.Text:='3';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image27.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image28Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image28.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image29Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image29.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image30Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image30.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image31Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image31.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image32Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='5';

Panel1.Enabled:=false;

Image32.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image33Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image33.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image34Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image34.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image35Click(Sender: TObject);

begin

Edit1.Text:='4';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image35.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image36Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image36.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image37Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image37.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image38Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image38.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image39Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image39.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image40Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='5';

Panel1.Enabled:=false;

Image40.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image41Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image41.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image42Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image42.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image43Click(Sender: TObject);

begin

Edit1.Text:='5';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image43.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image44Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image44.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image45Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image45.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image46Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image46.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image47Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image47.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image48Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='5';

Panel1.Enabled:=false;

Image48.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image49Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image49.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image50Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image50.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image51Click(Sender: TObject);

begin

Edit1.Text:='6';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image51.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image52Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image52.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image53Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image53.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image54Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image54.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image55Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image55.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image56Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='5';

Panel1.Enabled:=false;

Image56.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image57Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image57.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image58Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image58.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image59Click(Sender: TObject);

begin

Edit1.Text:='7';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image59.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image60Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='1';

Panel1.Enabled:=false;

Image60.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image61Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='2';

Panel1.Enabled:=false;

Image61.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image62Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='3';

Panel1.Enabled:=false;

Image62.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image63Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image63.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image64Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='4';

Panel1.Enabled:=false;

Image64.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image65Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='6';

Panel1.Enabled:=false;

Image65.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image66Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='7';

Panel1.Enabled:=false;

Image66.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.Image67Click(Sender: TObject);

begin

Edit1.Text:='8';

Edit2.Text:='8';

Panel1.Enabled:=false;

Image67.Picture.LoadFromFile('kon.bmp');

end;

procedure TForm1.epEfButton3Click(Sender: TObject);

begin

Image5.Picture:=Image68.Picture;

Image6.Picture:=Image68.Picture;

Image7.Picture:=Image68.Picture;

Image8.Picture:=Image68.Picture;

Image9.Picture:=Image68.Picture;

Image10.Picture:=Image68.Picture;

Image11.Picture:=Image68.Picture;

Image12.Picture:=Image68.Picture;

Image13.Picture:=Image68.Picture;

Image14.Picture:=Image68.Picture;

Image15.Picture:=Image68.Picture;

Image16.Picture:=Image68.Picture;

Image17.Picture:=Image68.Picture;

Image18.Picture:=Image68.Picture;

Image19.Picture:=Image68.Picture;

Image20.Picture:=Image68.Picture;

Image21.Picture:=Image68.Picture;

Image22.Picture:=Image68.Picture;

Image23.Picture:=Image68.Picture;

Image24.Picture:=Image68.Picture;

Image25.Picture:=Image68.Picture;

Image26.Picture:=Image68.Picture;

Image27.Picture:=Image68.Picture;

Image28.Picture:=Image68.Picture;

Image29.Picture:=Image68.Picture;

Image30.Picture:=Image68.Picture;

Image31.Picture:=Image68.Picture;

Image32.Picture:=Image68.Picture;

Image33.Picture:=Image68.Picture;

Image34.Picture:=Image68.Picture;

Image35.Picture:=Image68.Picture;

Image36.Picture:=Image68.Picture;

Image37.Picture:=Image68.Picture;

Image38.Picture:=Image68.Picture;

Image39.Picture:=Image68.Picture;

Image40.Picture:=Image68.Picture;

Image41.Picture:=Image68.Picture;

Image42.Picture:=Image68.Picture;

Image43.Picture:=Image68.Picture;

Image44.Picture:=Image68.Picture;

Image45.Picture:=Image68.Picture;

Image46.Picture:=Image68.Picture;

Image47.Picture:=Image68.Picture;

Image48.Picture:=Image68.Picture;

Image49.Picture:=Image68.Picture;

Image50.Picture:=Image68.Picture;

Image51.Picture:=Image68.Picture;

Image52.Picture:=Image68.Picture;

Image53.Picture:=Image68.Picture;

Image54.Picture:=Image68.Picture;

Image55.Picture:=Image68.Picture;

Image56.Picture:=Image68.Picture;

Image57.Picture:=Image68.Picture;

Image58.Picture:=Image68.Picture;

Image59.Picture:=Image68.Picture;

Image60.Picture:=Image68.Picture;

Image61.Picture:=Image68.Picture;

Image62.Picture:=Image68.Picture;

Image63.Picture:=Image68.Picture;

Image64.Picture:=Image68.Picture;

Image65.Picture:=Image68.Picture;

Image66.Picture:=Image68.Picture;

Image67.Picture:=Image68.Picture;

Image4.Picture:=Image68.Picture;

Panel1.Visible:=true;

Panel1.Enabled:=true;

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

end;

end.
РЕКЛАМА

рефераты НОВОСТИ рефераты
Изменения
Прошла модернизация движка, изменение дизайна и переезд на новый более качественный сервер

рефераты СЧЕТЧИК рефераты

БОЛЬШАЯ ЛЕНИНГРАДСКАЯ БИБЛИОТЕКА
рефераты © 2010 рефераты