Source position: msedb.pas line 1642
type fieldeventty = procedure(
const afield: tfield
) of object;