Source position: forms.pp line 339
type TCloseEvent = procedure(
Sender: TObject;
var CloseAction: TCloseAction
) of object;