Source position: dialogs.pp line 938
type TInputCloseQueryEvent = procedure(
Sender: TObject;
const AValues: array of string;
var ACanClose: Boolean
) of object;