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