Source position: forms.pp line 820
type TScreenActiveFormChangedEvent = procedure(
Sender: TObject;
LastForm: TCustomForm
) of object;