¡Pues pasándole el componente que quieras utilizar!... Por ejemplo:
Código Delphi
[-]
procedure QueSoy(Objeto: TObject);
begin
if (Objeto is TButton) then
ShowMessage('Soy un boton llamado ' + TButton(Objeto).Name)
else if (Objeto is TEdit) then
ShowMessage('Soy TEdit con el Texto ' + TEdit(Objeto).Text)
else if (Objeto is TStrings) then
ShowMessage(Format('Soy una lista con %d elementos ',
[TStrings(Objeto).Count])
else
ShowMessage('Soy un objeto de tipo ' + Objeto.ClassName);
end;
Un saludo