TListWithEvent

 

OnChange

 

TList

 

TObject