Ping pong физика игры

var
Form1: TForm1;
PosX, PosY, VelX, VelY:single;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
PosX:=55;
PosY:=50;
VelX:=2;
VelY:=3;
end;
 
procedure TForm1.shar;
begin
PosX:=PosX+VelX;
PosY:=PosY+VelY;
 
 
if PosX > ClientWidth - Shape1.Width then
VelX:=-VelX;
 
 
if PosX < 0 then
VelX:=-VelX;
 
 
 
if PosY > ClientHeight - Shape1.Width then
VelY:=-VelY;
if PosY < 0 then
VelY:=-VelY;
 
 
 
Shape1.Left:=round(PosX);
 
Shape1.Top:=round(PosY);
end;
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
Overlay: Trect;
begin
shar;
 
If InterSectRect(Overlay, Shape2.BoundsRect, Shape1.BoundsRect) then
begin
VelX:=-VelX-random(5);
VelY:=-VelY-random(5);
end;
 
// Условие для отбивания шарика компьютерным игроком
If InterSectRect(Overlay, Shape3.BoundsRect, Shape1.BoundsRect) then
begin
VelX:=-VelX-random(5);
VelY:=-VelY-random(5);
end;
 
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Shape2.Top:=Mouse.CursorPos.Y - Form1.ClientOrigin.Y;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 
if Shape3.Top > ClientHeight - Shape3.Height - 40 then
Shape3.Top:=Shape3.Top
else
begin
if Shape1.Top > Shape3.Top then
Shape3.Top:=Shape1.Top + Shape3.Width;
end;
 
if Shape1.Top < Shape3.Top then
Shape3.Top:=Shape1.Top - Shape3.Width;
end;
 
end.