На момент THiAsmClass.Create событие ev ещё не назначено. hacev := self.ev нужно делать позже, например, в THiAsmClass.sethook. Либо объявить ev как property, и присваивать в соответствующем set-ере.