EOutOfResources 'Espacio insuficiente....

[mrnovice]

He intentado corregirlo, he preguntado en los foros y me recomendaron un tercer componente que me ayude a validar la imagen, además ya queda claro que hay una limitante por parte de Delphi y tal vez el component para cantidades de imágenes grandes y en cantidad, el problema lo simplifique
simplemente lo quiero agregar una por una al jvthumbview pero al agregar a la 5 me truena alguna sugerencia?
Gracias saludos y buen día

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  img:TImageData;
begin
  If OpenPictureDialog1.Execute then
    Begin
      Imaging.InitImage(Img);
      Imaging.LoadImageFromFile(OpenPictureDialog1.FileName,img);
      if TestImage(Img) then
        begin
          //es verdero
          jvthumbview1.AddFromFile(OpenPictureDialog1.FileName);
          FreeImage(Img);
        end;
    End;
end;