Source position: msecommport.pas line 243
type commeventty = procedure(
const sender: tcommevent
) of object;