Мини-проекты в Delphi

Проект "Шарик за мышкой"

На форме размещаем таймер и Shape  и Timer.  Для формы TransparentColor – true, Color – clNone, WindowState – wsMaxmimized, Visible – false.
Для Timer1: Enabled – true, Interval – 1.

Для Shape1 -  Brush.Color – clMarron (можно другой) и Shape – stCircle.
В разделе implementation объявим переменные
dx,dy,xm,ym:integer;
После запуска программы в зависимости от разрешения вычисляем размеры экрана, растягиваем форму во весь экран.
Создаем процедуру для загрузки формы:

procedure TForm1.FormCreate(Sender:  TObject);
begin
    xm:=Screen.Width ;
    ym:=Screen.Height ;
    Form1.Width :=xm;
    Form1.Height :=ym;
end;

Таймер используется для создания цикла с временным интервалом. Малый интервал требуется для плавности движения и более четкой реакции на нажатие клавиш (Esc на клавиатуре)
Итак, для таймера:

procedure TForm1.Timer1Timer(Sender:  TObject);
point: Tpoint;
begin
   GetCursorPos(point);
   dx:=point.X-Form1.Shape1.Left;
   dx:=round(18*dx/20);
   dy:=point.y-Form1.Shape1.Top;
   dy:=round(18*dy/20);
   Form1.Shape1.Left:=point.X-dx;
   Form1.Shape1.Top:=point.y-dy;
end;

GetCursorPos(point) – определяет положение (позицию) указателя мыши.
point.X, point.Y – координаты указателя.
dx:=round(18*dx/20) и аналогично для dy вычисление положения Shape1 вблизи (18/20) от соответствующей координаты.
Form1.Shape1.Left:=point.X-dx и Form1.Shape1.Top:=point.y-dy помещают Shape1 на это место вблизи шарика и это циклично повторяется.
Для завершения  работы (ведь форма не видна!) программа закрываться будет по нажатию на Esc (Escape):

procedure TForm1.FormKeyDown(Sender:  TObject; var Key: Word; Shift:
 TShiftState);
begin
    if  Key=Vk_Escape then
       close;
end;