Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как узнать, присутствует ли мышка?

01.01.2007
function MousePresent : Boolean; 


begin


if GetSystemMetrics(SM_MOUSEPRESENT) <> 0 then


 
Result := true


else


 
Result := false;


end;

Взято из https://forum.sources.ru