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