procedure TForm1.FormCreate(Sender: TObject);
   begin
     Randomize;
   end;

   procedure TForm1.Timer1Timer(Sender: TObject);
     var pt : TPoint;
   begin
     Application.ProcessMessages;
     GetCursorPos(pt);
     SetCursorPos(pt.x + random(10), pt.y + random(10));
     Application.ProcessMessages;
     SetCursorPos(pt.x - random(10), pt.y - random(10));
   end;
   
   И сделайте задержку таймера 10 мсек
	             		

Источник: www.sources.ru