simplificar proceso

buenas tardes
estas instrucciones como las puedo simplificar?
xy1000.XY17.Picture = LoadPicture(RUTAPLA & "A.WMF")
xy1000.XY18.Picture = LoadPicture(RUTAPLA & "B.WMF")
xy1000.XY19.Picture = LoadPicture(RUTAPLA & "C.WMF")
xy1000.XY20.Picture = LoadPicture(RUTAPLA & "D.WMF")
xy1000.XY13.Picture = LoadPicture(RUTAPLA & "E.WMF")
xy1000.XY14.Picture = LoadPicture(RUTAPLA & "F.WMF")
xy1000.XY15.Picture = LoadPicture(RUTAPLA & "G.WMF")
xy1000.XY16.Picture = LoadPicture(RUTAPLA & "H.WMF")
xy1000.XY9.Picture = LoadPicture(RUTAPLA & "I.WMF")
xy1000.XY10.Picture = LoadPicture(RUTAPLA & "J.WMF")
xy1000.XY11.Picture = LoadPicture(RUTAPLA & "K.WMF")
xy1000.XY12.Picture = LoadPicture(RUTAPLA & "L.WMF")
xy1000.XY5.Picture = LoadPicture(RUTAPLA & "M.WMF")
xy1000.XY6.Picture = LoadPicture(RUTAPLA & "N.WMF")
xy1000.XY7.Picture = LoadPicture(RUTAPLA & "O.WMF")
xy1000.XY8.Picture = LoadPicture(RUTAPLA & "P.WMF")
xy1000.XY1.Picture = LoadPicture(RUTAPLA & "Q.WMF")
xy1000.XY2.Picture = LoadPicture(RUTAPLA & "R.WMF")
xy1000.XY3.Picture = LoadPicture(RUTAPLA & "S.WMF")
xy1000.XY4.Picture = LoadPicture(RUTAPLA & "T.WMF")
el nombre de la imagen esta en ua tabla que con ( cells(x,y)) puedo traerlas
, pero como hag variar ( xy1000.XY17.Picture =)
se puede simplificar??

muchas gracias