Вот версия, которая у меня есть в моей системе.Я пытался опубликовать это прямо в этом комментарии, но это слишком долго.Этот исходный код должен работать на Delphi 6 и выше (включая Delphi 2009, 2010 и XE). Я разместил его здесь .
Для получения подробных инструкций о том, как вообще превратить этот исходный файл в компонент времени разработки, пожалуйста, следуйте инструкциям блога About.com в Delphi здесь .