Source position: searchview.pas line 12
type TOnFocusChange = procedure(
Sender: TObject;
hasFocus: Boolean
) of object;