Source position: forms.pp line 443
type TModalDialogFinished = procedure(
Sender: TObject;
AResult: Integer
) of object;