Source position: msedatalist.pas line 1072
type createobjecteventty = procedure(
const sender: tobject;
var obj: tobject
) of object;