function Mausrad: Boolean; 
begin 
  Result := GetSystemMetrics(SM_MOUSEWHEELPRESENT) <> 0; 
end; 
 
function ScrollLines: Integer; 
begin 
  SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, @Result, 0); 
end; 
 
// Feststellen, ob die Maus über ein Rad verfügt: 
 
procedure TForm1.Button5Click(Sender: TObject); 
var s: string; 
begin 
  if Mausrad then s := '' else s := 'k'; 
  ShowMessage('Die Maus hat ' + s + 'ein Rad'); 
end; 
 
// die Zeilenzahl bei Mausrad-Scrolling ermitteln 
 
procedure TForm1.Button6Click(Sender: TObject); 
begin 
  if Mausrad then ShowMessage(IntToStr(ScrollLines)) 
   else ShowMessage('Kein Mausrad'); 
end;