эк Вас заносит

(хотя на форумах у асмянщиков это уже всё разжовано дизасмами), а нет бы сделать что-то полезное, для ускорения так сказать: для примера
http://www.codebot.org/delphi/?doc=9451, лень экономит время(сделал бы сам но пока другим занят) Вот Вам и ускорение