nesco, у меня есть более совершенный юнит (правда vcl) я так и не смог его запустить, встал когда не смог найти клас TControl и TWinowControl помоему, нервы здали конкретно, после того как длл даже не захотела работать в HiAsm то вообще поник почти полностью. Вот этот архив глянь, у меня делфи не стоит так что не пробовал

сюда залил http://slil.ru/28153960 ~70Kb