Ну да, конечно, а сколько тратится на

ReadInteger(_Data,Data,0)
и
_hi_onEvent(...)

ты посчитать забыл

По-моему, это тут уже обсуждали, что приемлемое быстродействие можно получить только в пакете FTCG, где убираются ненужные интерфейсные преобразования, тянущие на себя огромное время