Считывание серийного номера смарт-карты и токена на Delphi

Для Windows (7,8) необходим работающий пример проекта на Delphi 2007 в котором необходимо осуществить:
- Автоматическое определение того, что носитель вставлен в любой USB порт или считыватель смарт-карты;
- Считывание и определение типа носителя;
- Считывание серийного номера носителя;
- Автоматическое определение того, что носитель (ранее вставленный) вынут.

Используемые носители:...