Source position: fpg_form.pas line 37
type TFormCloseEvent = procedure(
Sender: TObject;
var CloseAction: TCloseAction
) of object;