Jak sprawdzić czy myszka jest ze scrollem (rolką)

Tworzymy mala funkcje:

function jest_rolka: Boolean; 
begin 
Result := GetSystemMetrics(SM_MOUSEWHEELPRESENT) <> 0; 
end; 

Wstawiamy na formę Buttona i w zdarzeniu OnClick dajemy:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
if jest_rolka then 
ShowMessage('Myszka posiada rolkę (scrolla).');
end;