http://www.delphisources.ru/forum/showthread.php?t=5029 это если правильно понял