Hola:
Lo que quiere decir Roman, es algo así:
Te creas un solo procedimiento con un parametro de tipo objeto, luego puedes acceder a las distintas propiedades de este objeto.
Esto es así
Código Delphi
[-]
procedure HazAlgo(Imagen: TImage);
begin
if Imagen.name = 'imagen1' then
....
....
end;
etc..
etc...
end;
En definitiva, creas un solo procedimiento y preguntas por los nombres de los controles y ahí tomas las decisiones pertinentes al caso.
Hasta Luego -