Получить ссылку на вызывающий объект

[Alter]

Чем это не устраивает:

if (Sender is TComboBox) then
begin
 {Код}
end;