TBasicActionLink

 

OnChange

 

TObject