[KOOL]

чтобы мерцания не было видно, надо сдвиг подбирать. вот код:

Код:

...

var cur : TPoint;
    r1 : integer;  //можно и дробным сделать
    a1, r2, n:real;

procedure TForm1.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;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(application.Handle, GWL_EXSTYLE) Or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
  Form1.Height:=5;
  Form1.Width:=5;
  Form1.Top:=-5;
  Form1.Left:=-5;
  a1:=0;
  r1:=100;
  n:=3;
end;

форма без границ, цвет по желанию, стиль - fsStayOnTop. можно еще ограничение по размеру поставить