Array? Was für ein Array meinst du?
Du kannst den Komponentennamen Sender.Name an deine Procedure weitergeben, und die kann dan mit TImage(FindComponent(Name)).Picture ... auf das übergebene Image zugreifen. Natürlich kannst du auch gleich das ganze Object übergeben ...
Florian