fx,fy: integer; // координаты движущегося объекта
n: integer; // количество промахов
p: integer; // количество попаданий
t: integer; // время до окончания игры
TimeForShoot:integer; // время для совершения выстрела
Level:Integer; // уровень
RunGame:Boolean; // переменная для паузы и возобновления игры
s: TStringList; // переменная для сохранения уровня игры в текстовый файл

procedure TMainForm.FormCreate(Sender: TObject);
begin
DoubleBuffered:=true;//чтобы не было мерцания при перемещении картинки
RunGame:=False;// чтобы игра не начиналась при запуске программы
Randomize;// инициализируем генератора случайных чисел
end;

procedure TMainForm.StartGame();
begin
ShootTimer.Enabled := true; // включаем таймер выстрелов
TimeTimer.Enabled := true; // запускаем отсчет времени
n:=0; // обнуляем количество промахов
p:=0; // обнуляем количество попаданий
t:=100; // устанавливаем начальное значение для отсчета времени
// устанавливаем исходное положение рисунка
fx:=100;
fy:=100;
// Задаем текст панели
StatusBar1.Panels[0].text:='Уровень: '+IntToStr(Level);// указываем уровень игры
StatusBar1.Panels[1].text:='Попаданий: '+IntToStr(p); // указываем количество попаданий
StatusBar1.Panels[2].text:='Промахов: '+IntToStr(n); // указываем количество промахов
StatusBar1.Panels[3].text:='Время: '+IntToStr(t); // выводим отсчет времени до конца игры
RunGame:=True; // игра запущена
end;

procedure TMainForm.NextLevel();
begin
If TimeForShoot <> 100 then begin
ShootTimer.Enabled := true; // включаем таймер выстрелов
TimeTimer.Enabled := true; // запускаем отсчет времени
n:=0; // обнуляем количество промахов
p:=0; // обнуляем количество попаданий
t:=100; // устанавливаем начальное значение для отсчета времени
// устанавливаем исходное положение рисунка
fx:=100;
fy:=100;
// Задаем текст панели
StatusBar1.Panels[0].text:='Уровень: '+IntToStr(Level);// указываем уровень игры
StatusBar1.Panels[1].text:='Попаданий: '+IntToStr(p); // указываем количество попаданий
StatusBar1.Panels[2].text:='Промахов: '+IntToStr(n); // указываем количество промахов
StatusBar1.Panels[3].text:='Время: '+IntToStr(t); // выводим отсчет времени до конца игры
RunGame:=True; // игра запущена
end else
ShowMessage ('Поздравляю. Вы победили!!!');
end;

procedure TMainForm.EndGame();
begin
if t=0 then begin
// игра закончена
// остановка таймеров
ShootTimer.Enabled := false;
TimeTimer.Enabled := false;
RunGame:=false;// останавливаем игру
// Выводим сообщение о результате
ResultForm.ShowModal;
end;
end;

procedure TMainForm.N5Click(Sender: TObject);
begin
// Устанавливаем начальные настройки
Level:=1;//задаем уровень для первой игры
TimeForShoot:=1000; // устанавливаем время передвижения объекта
StartGame(); // запускаем игру
end;

procedure TMainForm.TimeTimerTimer(Sender: TObject);
begin
// запускаем обратный отсчет времени
  // условие при котором таймер работает
if (t>0) and (RunGame=True) then begin
dec(t); // уменьшение переменной на единицу
StatusBar1.Panels[3].text:='Время: '+IntToStr(t); // вывод в панели статуса отсчета времени
EndGame(); // завершение игры
end;
end;

procedure TMainForm.ShootTimerTimer(Sender: TObject);
begin
  // условие при котором таймер работает
If RunGame=True then begin
// интервал таймера равен заданному нами значению TimeForShoot
ShootTimer.Interval:=TimeForShoot;
// новое положение рисунка
// отнимаем ширину и высоту
fx:= Random(ClientWidth-32); // 32 - это ширина рисунка
fy:= Random(ClientHeight-52); // 32 - это высота рисунка, 20 - это высота панели StatusBar
BirdImage.Left:=fx;
BirdImage.Top:=fy;
end;
end;

procedure TMainForm.BirdImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
// Условие запуска обработчика события
If RunGame=True then begin
inc(p); // считаем попадания по объекту
StatusBar1.Panels[1].text:='Попаданий: '+IntToStr(p);// записываем в панель попадания
EndGame(); // вызываем процедуру конец игры
end;
end;

procedure TMainForm.FonImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // условие при котором обработчик события работает
If RunGame=True then begin
inc(n); // считаем промахи (попадания по фоновому рисунку)
StatusBar1.Panels[2].text:='Промахов: '+IntToStr(n);//записываем в панель промахи
EndGame(); // вызываем процедуру конец игры
end;
end;