вот попробовал сделать, чтобы не вылетала, но хочется увеличить скорость выполнения, но не знаю как. Может с использованием компонентов FTCG, но там не все компоненты.
code_21763.txt
------------ Дoбавленo в 10.56:
Вот получилось http://hiasm.com/forum_serv.php?q=56&id=2006