Source position: mseact.pas line 151
type asynceventty = procedure(
const sender: tobject;
var atag: Integer
) of object;