Sobre la variable Sender

[yusnerqui]

Hola amigos del foro, mi duda es la siguiente: Tngo un evento que comparto con dos componentes de diferente tipo, pero en dicho esvento tengo que extraer las mismas propiedades a estos componentes(el hint y el caption) rl único ancestro común que tienen es TComponent y este no tiene estas propiedades, entonces tengo que hacer lo siguiente.

Código Delphi [-]
if (Sender is TMenuItem) then   
  begin
    H := TMenuItem(Sender).Hint;
    Cap := TMenuItem(Sender).Caption;    
  end
  else                           
  begin
    H := TdxWinXPBarItem(Sender).Hint;
    Cap :=TdxWinXPBarItem(Sender).Caption;
  end;

Si nos fijamos la única diferencia es la captura del tipo de objeto que viene por Sender.

Mi pregunta es: Existe alguna forma de obtimizar el código anterior.

desde ya mil gracias

Saludos Yuserqui.