Движение кнопки

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, jpeg, Menus, StdCtrls;
 
type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Timer1: TTimer;
    Image1: TImage;
    Timer2: TTimer;
    Image2: TImage;
    Button1: TButton;
    Button2: TButton;
    SpeedButton3: TSpeedButton;
    Timer3: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  x,y,z:integer;
 
implementation
 
uses Math;
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
SpeedButton2.Left:=SpeedButton2.Left-1; // перемещение торпеды слева направо
if SpeedButton2.Left < 0 then SpeedButton2.Left:=form1.Width-60;// возвращает торпеду в начальную точку при достижении конца
 
if z = 2 then
begin
Timer1.Interval:=10;
Timer3.Interval:=15;
end;
if z = 3 then
begin
Timer1.Interval:=7;
Timer3.Interval:=10;
end;
if z = 4 then
begin
Timer1.Interval:=3;
Timer3.Interval:=5;
end;
 
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
image1.top:= image1.top-5; //Запускает ракету
if image1.top < 0 then       //Если торпеда выйдет за пределы формы,
begin                        //То
image1.Top:=SpeedButton1.Top;     // 1.Ракету "зарядить в торпеду"
timer2.Enabled:=false;       // 2.Остановить таймер (движение торпеды).
end;
if ((image1.Top > SpeedButton2.Top) and            // Если вертикальная координата торпеды больше верхнего,
(image1.Top < SpeedButton2.Top+ SpeedButton2.height)  //но меньше нижнего значения координат корабля
and                                            //И
(image1.left > SpeedButton2.left) and              // Если горизонтальная координата торпеды находится
(image1.left < SpeedButton2.left+SpeedButton2.Width))// в промежутке между правым и левым бортом корабля
 
then                                           //То
begin
  z:=z+1;
  Label1.Caption:=IntToStr(z);
  Randomize;
  x:=Random(500)+500;
  y:=Random(280)+30;                   //2.Останавливаем движение корабля
  SpeedButton2.Left:=x;
  SpeedButton2.top:=y;
end;
 
if ((image1.Top > SpeedButton3.Top) and            // Если вертикальная координата торпеды больше верхнего,
(image1.Top < SpeedButton3.Top+ SpeedButton3.height)  //но меньше нижнего значения координат корабля
and                                            //И
(image1.left > SpeedButton3.left) and              // Если горизонтальная координата торпеды находится
(image1.left < SpeedButton3.left+SpeedButton3.Width))// в промежутке между правым и левым бортом корабля
 
then                                           //То
begin
  z:=z+1;
  Label1.Caption:=IntToStr(z);
  Randomize;
  x:=Random(200)+16;
  y:=Random(280)+30;                   //2.Останавливаем движение корабля
  SpeedButton3.Left:=x;
  SpeedButton3.top:=y;
end;
if z = 2 then
begin
Timer1.Interval:=80;
Timer3.Interval:=50;
end;
if z = 3 then
begin
Timer1.Interval:=130;
Timer3.Interval:=90;
end;
if z = 4 then
begin
Timer1.Interval:=170;
Timer3.Interval:=130;
end;
end;
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Timer2.Enabled:=true;
end;
 
 
 
procedure TForm1.N2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 FullProgPath: PChar;
begin
 FullProgPath:=PChar(Application.ExeName); //Полностью перезапускает всю программу
 WinExec(FullProgPath,SW_SHOW);
 Application.Terminate;
end;
 
procedure TForm1.Timer3Timer(Sender: TObject);
begin
SpeedButton3.Left:=SpeedButton3.Left+1; // перемещение торпеды слева направо
if SpeedButton3.Left  < 0 then SpeedButton3.Left:=form1.Width-50;// возвращает торпеду в начальную точку при достижении конца
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
FullProgPath: PChar;
begin
FullProgPath:=PChar(Application.ExeName); //Полностью перезапускает всю программу
WinExec(FullProgPath,SW_SHOW);
Application.Terminate;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
SpeedButton3.Left:=SpeedButton3.Left+1; // перемещение торпеды слева направо
if SpeedButton3.Left < 0 then SpeedButton3.Left:=form1.Width-50;// возвращает торпеду в начальную точку при достижении конца
end;

if SpeedButton3.Left > ClientWidth then SpeedButton3.Left:=0;