delphi 控件动态数组 array of TImage 的一个奇怪问题

arrTImage: array of TImage;

SetLength(arrTImage, imageCount+1); //分配空间需要比实际数量加1，不然释放的时候会报内存错误，非常奇怪，这是怎么回事呢？

 

 

  for I := 0 to Length(arrTImage) - 1 do
  begin
    // aComponent := Self.FindComponent('image' + inttostr(I));

    if arrTImage[I] <> nil then
    begin
      arrTImage[I].Picture.Bitmap := nil;
      arrTImage[I].Parent := nil;
      arrTImage[I].Free;
      arrTImage[I] := nil;
    end;

  end;

  SetLength(arrTImage, 0);