[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;

[Amgsys HQ]

Ошибку красным выдели.

[MOJO]

http://s018.radikal.ru/i528/1201/9c/96c528acad20.png

[angvelem]

И как ты думаешь, можно что-либо определить по коду, который ссылается на другие, не приведённые процедуры, и использует неизвестные переменные?
Указанный рисунок можешь размножить и обклеить им стены.

[MOJO]

Вот весь проект
http://db.tt/2tT39o7H

[angvelem]

Когда и при каких условиях происходит вылет? Мне повторить не удалось, всё работает стабильно.