Gracias por contestar tan rapido. Ahora ya me funciona bien, aparte de eso me daba el error, porque en creaimagenes:
Código Delphi
[-]
for i:=0 to NUmImag-1 do
begin
Img := TImage.Create(ArPaneles[NumImagenes-1]);
Img.Parent := ArPaneles[NumImagenes-1];...............
end;
Entonces ya me lo guarda y no me muestra error. Muchas gracias.