unit Unit1;

interface

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

type
TForm1 = class(TForm)
shape1: TShape;
Timer: TTimer;
shape2: TShape;
procedure FormCreate(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
procedure shar();
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
PosX,PosY,VelX,VelY: Single;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
PosX:=1;
PosY:=1;
VelX:=2;
VelY:=3;
end;

procedure TForm1.shar;
begin
PosX:=PosX+VelX;
PosY:=PosX+VelY;
if PosX > ClientWidth -Shape1.Width then
VelX := -velX;

Shape1.Left:=Round(PosX);
Shape1.Top:=Round(PosY);
end;

procedure Tform1Timer(Sender: TObject);
var overlay: TRect;
begin
Form1.shar;
if InterSectRect(overlay, Form1.shape2.BoundsRect, Form1.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;

end.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Shape1: TShape;
Timer1: TTimer;
Shape2: TShape;
Shape3: TShape;
Timer2: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Shape2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Timer2Timer(Sender: TObject);
private
procedure shar();
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
PosX, Posy, VelX, Vely: single;
overlay:TRect;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
Posx:=120;
PosY:=100;
VelX:=5;
VelY:=5;
end;

procedure TForm1.shar;
begin

PosX := PosX+VelX;
PosY := PosY+VelY;

if PosX > ClientWidth - Shape1.Width then
begin

PosX:= ClientWidth - Shape1.Width;

VelX:= - VelX;
end
else if PosX < 0 then
begin
POsX := 0;
VelX := - VelX;
end;

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

Shape1.Left:= Round(PosX);
Shape1.Top:= Round(PosY);
end;

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

if IntersectRect(Overlay, Shape2.BoundsRect, Shape1.BoundsRect) then
begin
VelX:=-VelX-Random(1);
VelY:=-VelY-Random(1);
end;

if IntersectRect(Overlay, Shape3.BoundsRect, Shape1.BoundsRect) then
begin
VelX:=-VelX-Random(1);
VelY:=-VelY-Random(1);
end;
Shape2.Top:=Mouse.CursorPos.Y -Form1.ClientOrigin.Y;
end;

procedure TForm1.Shape2MouseMove(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 -shape1.Width;
end;

end.