nesco, для Дельфи я бы не смог сделать быстро пример. Вот и сделал пока для HiAsm -а.