Регулировка чувствительности мыши в Delphi

//при нажатии на мышку уменьшаем скорость в 3 раза (в 2 не очень заметно)
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var MouseInfo:integer;
begin
SystemParametersInfo(SPI_GETMOUSESPEED,0,@MouseInfo,0);
SystemParametersInfo(SPI_SETMOUSESPEED,0,Pointer(MouseInfo div 3),SPIF_SENDCHANGE);
end;
 
// при отпускании кнопки мышки ставим скорость по дефолту
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 SystemParametersInfo(SPI_SETMOUSESPEED,0,Pointer(10),SPIF_SENDCHANGE);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
 
type
TForm1 = class(TForm)
procedure Down(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure upkey(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Down(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
 
var MouseInfo:integer;
windowHandle:HWND;
begin
windowHandle:=FindWindow(nil,'Counter-Strike');
if windowHandle <> 0 then
begin
SystemParametersInfo(SPI_GETMOUSESPEED,0,@MouseInfo,0);
SystemParametersInfo(SPI_SETMOUSESPEED,0,Pointer(MouseInfo div 3),SPIF_SENDCHANGE);
end;
end;
 
 
 
 
procedure TForm1.upkey(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var MouseInfo:integer;
 
windowHandle:HWND;
begin
windowHandle:=FindWindow(nil,'Counter-Strike');
if windowHandle <> 0 then
begin
SystemParametersInfo(SPI_GETMOUSESPEED,0,@MouseInfo,0);
SystemParametersInfo(SPI_SETMOUSESPEED,0,Pointer(MouseInfo * 3),SPIF_SENDCHANGE);
end;
end;