Source position: msetypes.pas line 408
type tageventtyty = procedure(
const tag: Integer
) of object;