Source position: forms.pp line 894
type TScreenFormEvent = procedure(
Sender: TObject;
Form: TCustomForm
) of object;