procedure TForm1.Button1Click(Sender: TObject);
begin
   Caption := IntToStr( GetDoubleClickTime );
end;

// Способ первый
procedure TForm1.Button1Click(Sender: TObject);
begin
   SetDoubleClickTime( 5000 );
end;

// Способ второй
procedure TForm1.Button1Click(Sender: TObject);
begin
   SystemParametersInfo(SPI_SETDOUBLECLICKTIME, Integer(500), nil, 0);
end;

function GetMouseSpeed: integer;
begin
   SystemParametersInfo( SPI_GETMOUSESPEED, 0, @Result, 0 );
   // SystemParametersInfo( SPI_GETMOUSESPEED, 0, @Result, SPIF_SENDCHANGE );
end;

// Диапазон значений параметра Speed должен находиться
// в пределах от 1 до 20
function SetMouseSpeed( Speed: integer ): boolean;
begin
   Result := SystemParametersInfo( SPI_SETMOUSESPEED, 1, Pointer( Speed ), 0 );
   // Result := SystemParametersInfo( SPI_SETMOUSESPEED, 1, Pointer( Speed ), SPIF_SENDCHANGE );
end;

ShowCursor( false ); // Скрыть
ShowCursor( true ); // Показать

// В Delphi 2010 и выше такая константа есть
const
  WM_MOUSEHWHEEL = $020E;

type
  TForm1 = class(TForm)
  private
    procedure WMMouseHWheel( var Msg: TMessage ); message WM_MOUSEHWHEEL;
  end;

{...}

implementation

{...}

// Минимальная версия клиентской ОС - Windows Vista [desktop apps only]
// Минимальная версия серверной ОС - Windows Server 2008 [desktop apps only]
procedure TForm1.WMMouseHWheel(var Msg: TMessage);
begin
   // Щелчок колесом вправо
   if Msg.WParamHi = $0078 then
      Caption := '>>>';
   // Щелчок колесом влево
   if Msg.WParamHi = $FF88 then
      Caption := '<<<';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(IntToStr(GetSystemMetrics(SM_CMOUSEBUTTONS)));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if GetSystemMetrics(SM_MOUSEWHEELPRESENT) > 0 then
      ShowMessage('Колесо прокрутки есть.')
   else
      ShowMessage('Колеса прокрутки нет.');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if GetSystemMetrics(SM_MOUSEHORIZONTALWHEELPRESENT) > 0 then
      ShowMessage('Горизонтальная прокрутка поддерживается.')
   else
      ShowMessage('Горизонтальная прокрутка не поддерживается.');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  LeftMB, RightMB, MiddleMB: string;
begin
   if GetAsyncKeyState(VK_LBUTTON) and $8000 <> 0 then
      LeftMB := 'да'
   else
      LeftMB := 'нет';

   if GetAsyncKeyState(VK_MBUTTON) and $8000 <> 0 then
      MiddleMB := 'да'
   else
      MiddleMB := 'нет';

   if GetAsyncKeyState(VK_RBUTTON) and $8000 <> 0 then
      RightMB := 'да'
   else
      RightMB := 'нет';

   Caption := Format('Левая: %s, средняя: %s, правая: %s', [LeftMB, MiddleMB, RightMB]);
end;