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