Source position: fpg_form.pas line 38
type TFormCloseQueryEvent = procedure(
Sender: TObject;
var CanClose: Boolean
) of object;