TScreen

OnActiveControlChange

OnActiveFormChange

TLCLComponent

TComponent

TPersistent

TObject