Para eso se utilizan los parámetros en procedimientos y funciones.
Revisa estos links o si buscas en internet encontrarás muchos más.
http://docwiki.embarcadero.com/RADSt...ctions_(Delphi)
http://docwiki.embarcadero.com/RADSt...meters_(Delphi)
Se trata al final de modificar ese procemiento para que admita un parámetro de tipo array. De esa forma funcionará con todos los arrays (siempre que sean similares).
Haz pruebas y si no te sale comenta lo que has hecho aquí y iremos ayudándote.