function LastInput: DWord;

var

  LInput: TLastInputInfo;

begin

   LInput.cbSize := SizeOf( TLastInputInfo );

   GetLastInputInfo( LInput );

   Result := GetTickCount - LInput.dwTime;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

   Caption := Format( 'Система простаивает %d ms', [LastInput] );

end;