Source position: forms.pp line 748
type TScreenControlEvent = procedure(
Sender: TObject;
LastControl: TControl
) of object;