вот так не размывает...но все равно остаются следы, когда окна перетаскиваешь и т.п.
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
GetCursorPos(mp);
xc := mp.X;
yc := mp.Y;
ScreenDC := GetDC(0);
SetPixel(ScreenDc,x,y,c);
c := GetPixel(ScreenDc,xc+Round(25*cos(a)),yc+Round(25*sin(a)));
SetPixel(ScreenDc,xc+Round(25*cos(a)),yc+Round(25*sin(a)),clRed);
x := xc+Round(25*cos(a));
y := yc+Round(25*sin(a));
a := a + pi/36;
ReleaseDC(0,ScreenDC);
end;
вообще такое удобнее формой делать. во вложении пример.