TComponentMediator

TBaseMediator

pl 

OnViewToObject

pl 

OnObjectToView