[MOJO]

Вылетает с ошибкой
Помогиет найти ее

Код:

procedure TForm1.N11Click(Sender: TObject);
var
  i,j : Integer;
  R1,G1,B1 : byte;
  R2,G2,B2 : byte;
  Porog : Double;
  Index : Integer;
//  ColorFig : array [1..100] of TColor32;
begin
  Index:=1;
//  ColorFig[Index]:=Image321.Bitmap.PixelS[0,0];
  for i:=0 to 1000 do
    for j:=0 to 1000 do
      ImageIndex[i,j]:=0;
  ImageIndex[0,0]:=Index;
  for i:=0 to Image321.Bitmap.Width-1 do
    for j:=0 to Image321.Bitmap.Height-1 do
    begin
      if SelectC(Image321.Bitmap.PixelS[i,j],Image321.Bitmap.PixelS[0,0],100) then
        ImageIndex[i,j]:=1
      else
      begin
        if ImageIndex[i,j]=0 then
        begin
        Index:=Index+1;
        PixelsSearchRec(Image321.Bitmap,i,j,Index);
        end;
      end;
    end;
  ShowMessage('Кол-во фигур = '+IntToStr(Index));
end;