[xanrias]

Большое спасибо всем кто помог.
Работает, но при выходе из программы всё так же получаем ошибку памяти, вот на другом форуме с исходниками, если кому потребуется.
http://www.cyberforum.ru/delphi-begi...tml#post899869