Велосипеды изобретаете, уважаемые!
Чем вам не угодил исходник от Zadohlik'а?
Да, он не для Delphi, но это рабочий вариант, так зачем лепить что-то с нуля?