twidgetevent
tcomponentevent
create
tobjectevent
destroy
deliver
tmseevent
free1
tnullinterfacedobject