[roman]

¿Y por qué no le pasas a ese procedimiento el control en sí

Código Delphi [-]
procedure HazAlgo(Imagen: TImage);
begin
  {
    Aquí accedes a las propiedades de Imagen
  }
end;

en lugar del nombre?

// Saludos