Bezczynność w Windows

Jak w Delphi wykryć że myszka w całym Windowsie nie zmienia pozycji ?

function TfMain.SecondsIdle: DWORD;
var
  liInfo: TLastInputInfo;
begin
  liInfo.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(liInfo);
  Result := (GetTickCount - liInfo.dwTime) div 1000;
end;

zwraca od ilu sekund user nie ruszył myszą ani klawiaturą