Приведенный мной выше пример работает только, если в проекте только один экземпляр компонента THiAsmClass (демонстрация этого - мой компонент InputBox в "Компонентах").
Если в проекте несколько экземпляров - в переменной р будет ссылка только на последний инициализированный экземпляр

Можно было сделать глобальной переменной, но тут требуется наличие только одного экземпляра класса, если их будет несколько, то работать будет только последний инициализированный