Title: How to check if the mouse has a wheel
function MouseWheelExists: Boolean;
begin
Result := GetSystemMetrics(SM_MOUSEWHEELPRESENT) 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if MouseWheelExists then
ShowMessage('Mouse has wheel.');
end;