Tad, это уже не HiAsm. Это код.
Если остаться в пределах идеи HiAsm-а то так:
code_27315.txt



------------ Дoбавленo в 00.13:
я доконца не знаю почему стандартный пакет такой медленный, я не настолько разбираюсь в этом, но когда я поработал с Share.pas, мне показалось, что создание элементов как Unit-ов не должно было настолько замедлять работу. А для типов можно было придумать какой-то простой вариант, типа отдельного юнита с переменными. (хотя, такой отдельный юнит переменных, это уже и есть FTCG концепция, может в этом и вся причина была)