Source position: dialogs.pp line 84
type TDialogResultEvent = procedure(
sender: TObject;
Success: Boolean
) of object;