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