чтобы мерцания не было видно, надо сдвиг подбирать. вот код:
	Код:
	| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | ...
   varcur : TPoint;
     r1 : integer;  
     a1, r2, n:real;
   procedureTForm1.Timer1Timer(Sender: TObject);
 begin
   GetCursorPos(cur);
   r2:=r1*(cos(n*a1)); 
   Form1.Width:=5;
   Form1.Height:=5;
   Form1.Left:=cur.X+Round(r2*cos(a1))+5;
   Form1.Top:=cur.Y+Round(r2*sin(a1))-5; 
   a1:=a1+pi/180;
 end;
   procedureTForm1.FormCreate(Sender: TObject);
 begin
   SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(application.Handle, GWL_EXSTYLE) OrWS_EX_TOOLWINDOW ANDNOTWS_EX_APPWINDOW);
   Form1.Height:=5;
   Form1.Width:=5;
   Form1.Top:=-5;
   Form1.Left:=-5;
   a1:=0;
   r1:=100;
   n:=3;
 end;
 | 
 
форма без границ, цвет по желанию, стиль - fsStayOnTop. можно еще ограничение по размеру поставить