Массив картинок, плохо заполняется

[Shmulya]

Создал динамический массив, все работает нормально пока файлы имеют названия "178..386". Когда "700..750" появляется сообщение "Access violation at address 0134C8F9. Write of address 00000023.". Если меняю название файла на другое, которое ранее грузилось, все нормально. Перехожу на "1300..1600" опять все нормально. Попал в тупик.

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, Gr32_Image, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Im: Array[1..2] of TImage;
  Img1: Timage32;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
FreeAndNil(Img1);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i, d, x, y: integer;
begin
    Img1:= Timage32.Create(self);
    Img1.Parent:= Form1;
    Img1.Align:= AlClient;
    x:= 0;
    y:= 0;

       D:=346;  //  папка откуда  файлы

  Repeat
    for i := 718 to 722 do
      begin                      //Создает динамический массив карты
      Im[i] := TImage.Create(self);
      Im[i].Parent := Img1;
      Im[i].Left:= x;
      Im[i].Top := y;
      Im[i].Width := 256;
      Im[i].Height:= 256;
      x:= x+256;
//if DirectoryExists ('O:\SASPlanet\cache\Gen\z10\'+ IntToStr(d))and
//FileExists( ('O:\SASPlanet\cache\Gen\z10\'+ IntToStr(d)+ '\' + (IntToStr(i) + '.jpg'))) then
Im[i].Picture.LoadFromFile  ('O:\SASPlanet\cache\Gen\z10\'+ IntToStr(d)+ '\' + (IntToStr(i) + '.jpg'))
  //Else
     //Im[i].Picture.LoadFromFile  ('G:\157.jpg');   //Загружает файл, если отсутствует нужный тайл
end;
  //end;
      X:= 0;
      Y:= y+256;
      d:= d+1;
  Until d= 350;   // Конечная папка
end;

end.