Соударение shapoB

[IL-93]

Вот у меня код, там я не знаю как написать их соударение

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Timer1: TTimer;
    Shape2: TShape;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
     private
    { Private declarations }
  public
    procedure shar();
    procedure shar1();
    procedure udar();
    { Public declarations }
  end;

var
  Form1: TForm1;

  PosX, PosY: integer;  //Первый Shape
  VelX, VelY: integer;

  PosX1, PosY1: integer;  //Второй shape
  VelX1, VelY1: integer;
implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.shar;
begin
  PosX:=PosX+VelX;
  PosY:=PosY+VelY;
  Shape1.Left:=PosX;
  Shape1.Top:=PosY;
  If PosX >= ClientWidth - Shape1.Width then
     begin
        VelX:= -VelX;
     end
  else
      If PosX<0 then
         begin
         VelX:=-VelX;
         end;

  if PosY >= ClientHeight - Shape1.Width then
     begin
        VelY:=-Vely;
     end
  else VelY:=VelY;
     If PosY<0 then
        begin
        VelY:=-Vely
        end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  VelX:=1;
  VelY:=1;
  PosX:=10;
  PosY:=100;

  VelX1:=2;
  VelY1:=2;
  PosX1:=100;
  PosY1:=100;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  shar;
  Shar1;
end;

procedure TForm1.shar1;
begin
begin
  PosX1:=PosX1+VelX1;
  PosY1:=PosY1+VelY1;
  Shape2.Left:=PosX1;
  Shape2.Top:=PosY1;
  If PosX1 >= ClientWidth - Shape2.Width then
     begin
        VelX1:= -VelX1;
     end
  else
      If PosX1<0 then
         begin
         VelX1:=-VelX1;
         end;

  if PosY1 >= ClientHeight - Shape2.Width then
     begin
        VelY1:=-Vely1;
     end
  else VelY1:=VelY1;
     If PosY1<0 then
        begin
        VelY1:=-VelY1;
        end


end;
end;

procedure TForm1.udar;
begin

end;

end.