Дело в том, что Sender является по сути родителем почти для любого класса, поэтому достаточно сендер явно привести к классу того, кто это событие сгенерил и все свойства посылателя будут доступны.
Скажем у нас есть на кнопке обработчик клика и есть на едите, тот-же обработчик. Что мы должны сделать. Во первых определить класс посылателя:
Код:
if TComponent(Sender).ClassType = TEdit
then ...
if TComponent(Sender).ClassType = TButton
then ...
Определившись с классом можно уже привести нашего посылателя к нужному классу и воспользоваться его свойствами:
Код:
if TComponent(Sender).ClassType = TEdit
then TEdit(Sender).Text := 'Что-то тут напишем'
Вот примерно так.