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