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