Sobre procedimientos y funciones

[[ElKurgan]]

¡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