Source position: mseclasses.pas line 105
type asynceventeventty = procedure(
const sender: tobject;
var atag: Integer
) of object;