ruchy myszy

Witam, jestem poczatkujacy i mam nastepujacy problem. Chce aby po wcisnieciu przycisku kursor myszy poruszal sie w dol i w gore co powiedzmy 5 sekund o wartosc powiedzmy 10 pikseli. Czyli tak: wciskam button i kursor zchodzi w dol po prostej o 10 pikseli, mija 5 sekund i kursor idzie 10 pikseli w gore, 5 sekund i w dol..itd. Petla ciagle az do wcisniecia drugiego przycisku konczacego program. Jakies rady ??? z gory dzieki

Wrzuc sobie Timer na forme, Interval na 5000, Enabled na false. W OnMouseDown formy daj:

if Button = mbLeft then Timer1.Enabled := true
else if Button = mbRight then Timer1.Enabled := false ;

kliknij dwa razy na Timer i daj:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  P : TPoint ;
begin
  GetCursorPos(P) ;
  if wGore then SetCursorPos(P.X , P.Y - 10)
  else SetCursorPos(P.X , P.Y + 10) ;
  wGore := not wGore ;
end;

Jeszcze musisz sobie zadeklarowac pod Form1 : TForm1 ;
zmienna wGore : Boolean ;