Source position: msewidgets.pas line 830
type queryeventty = procedure(
const sender: tobject;
var answer: Boolean
) of object;