[Delphi] Prędkość Myszy

Witam wszystkich.

Otóż mam do was pewne pytanko jak można z poziomu delphi regulować prędkość myszy, czy też ją odczytywać np w komponencie Tlabel??

Wnioskując z tego wygooglowanego tematu można to odczytać z Rejestru:
Mouse speed

Dzieki za odpowiedz ;] sprobuje cos wygrzebac z tego topicu, jesli ktos jeszcze ma jakies pomysly prosze niech sie udzieli.

Prędkość myszy można odczytać bez odwoływania się do rejestru, za pomocą funkcji SystemParametersInfo.
Ten kod działa w Windows XP i podaje prawidłowe wartości:

procedure TForm1.Button1Click(Sender: TObject);
var Speed: Integer;
begin
  SystemParametersInfo(SPI_GETMOUSESPEED, 0, @Speed, 0); // SPI_GETMOUSESPEED = $0070
  Label1.Caption:= IntToStr(Speed);
end;

Zatem ten kod powinien zmienić prędkość myszy:

procedure TForm1.Button2Click(Sender: TObject);
var Speed: Integer;
begin
  Speed:= 6;
  SystemParametersInfo(SPI_SETMOUSESPEED, 0, @Speed, SPIF_UPDATEINIFILE);  // SPI_SETMOUSESPEED = $0071
  // Sprawdzenie
  SystemParametersInfo(SPI_GETMOUSESPEED, 0, @Speed, 0);
  Label1.Caption:= IntToStr(Speed);
end;

Niestety prędkość pozostaje taka sama. Żadne flagi tu nie pomagają (SPIF_UPDATEINIFILE, SPIF_SENDWININICHANGE)

Odczytywanie predkosci kursora dziala jak nalezy, Wielkie dzieki simplex. Jednak moj problem nie zostal jeszcze do konca rozwiazany ma ktoś jeszcze jakies pomysly??:P