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