unit Unit1;

interface

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

type
   TForm1 = class(TForm)
     Image1: TImage;
     Image2: TImage;
     Image3: TImage;
     Image4: TImage;
     Timer1: TTimer;
     Timer2: TTimer;
     Label1: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
       Y: Integer);
     procedure Timer2Timer(Sender: TObject);

   private
     procedure shar();
     procedure memory();
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

   PosX,PosY,VelX,VelY:Single;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin
memory;
PosX:=250;
PosY:=250;
VelX:=2;
VelY:=2;
end;

procedure TForm1.shar;
begin
PosX:=PosX+VelX;
PosY:=PosY+VelY;
Image4.Left:=Round(PosX);
Image4.Top:=Round(PosY);
if PosX> ClientWidth-50 then
VelX:=-VelX;
if PosX<0 then
VelX:=-VelX+random(2);
if PosY> ClientHeight-58 then
VelY:=-VelY;
if PosY<0 then
VelY:=-VelY+random(2);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var Overlay:Trect;
begin
shar;
  if IntersectRect(Overlay,Image4.BoundsRect,Image2.BoundsRect) then
  begin
   VelX:=-VeLx+Random(3);
   VelY:=-VelY+Random(3);
  end;

if IntersectRect(Overlay,Image4.BoundsRect,Image3.BoundsRect) then
  begin
   VelX:=-VeLx-Random(3);
   VelY:=-VelY-Random(3);
  end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
begin
  Image3.Top:=Mouse.CursorPos.Y-ClientOrigin.Y;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if Image2.Top>ClientHeight-Image2.Height-40 then
Image2.top:=Image2.Top
else
begin
  if Image4.Top>Image2.Top then
  Image2.Top:=Image4.Top+Image2.Width;
end;
if Image4.Top<Image2.Top then
Image2.Top:=Image4.top-Image4.Width;
end;

procedure TForm1.memory;
var H:THandle;
begin
  if Win32Platform=ver_platform_win32_nt then
  H:=OpenProcess(PROCESS_ALL_ACCESS,False,GetCurrentProcessId);
  SetProcessWorkingSetSize(H,Dword(-1),DWORD(-1));
  CloseHandle(H);
end;

end.