Ошибка List Index of bounds(0)

[Ericnex]

При нажатии кнопки выдает вышеназванную ошибку. В чем может быть проблема?

procedure TForm1.Button2Click(Sender: TObject);
var
Kvad1, Kvad2:TRect;
begin
bitmap := TBitmap.Create;
Kvad1.Left := 100;
Kvad1.Right := 0;
Kvad1.Top := 100;
Kvad1.Bottom := 0;
for i:=0 to 99 do
for j:=0 to 99  do
begin
if Form1.Image1.Canvas.Pixels[i,j] = clblack then
begin
if i<Kvad1.Left then Kvad1.Left := i;
if i>Kvad1.Right then Kvad1.Right := i+1;
if j<Kvad1.Top then Kvad1.Top := j;
if j>Kvad1.Bottom then Kvad1.Bottom := j+1;
end;
end;
Kvad2.Left := 0;
Kvad2.Right := 100;
Kvad2.Top := 0;
Kvad2.Bottom := 100;
try
bitmap.Assign(Form1.Image1.Picture.Bitmap);
bitmap.Canvas.CopyRect(Kvad2,bitmap.Canvas,Kvad1);
image1.Picture.Bitmap.Canvas.StretchDraw(Kvad2, bitmap);
finally
bitmap.Free;
end;
int(); // вызов процедуры
end;

[Delphi_ProGer]

Эта ошибка означает что вы обращаетесь к 0 елементу списка, но я здесь не вижу этого...Что в процедуре Init()?
Чтобы избежать такой ошибки - проверяйте количество елементов в списке.

if List.Count>0 then ...

Протрассируйте программу, на какой строке ошибка?

[Ericnex]

Собственно сама процедура:

sum:=0;
for i:=0 to 99 do
for j:=0 to 99  do
begin
if Form1.Image1.canvas.Pixels[i,j]=clblack then
sum:=sum+vesa[i+j*100];
end;
if sum>=p then Form1.StatusBar1.Panels[0].Text:= 'Это символ:Крестик' else Form1.StatusBar1.Panels[0].Text:= 'Это символ:Не крестик';
end;

[Sciv]

StatusBar1.Panels[0]

Она точно создана, эта панель?

На какой конкретно строчке кода вылетает ошибка (обычно при ошибке происходит переключение в редактор и синим цветом выделяется ошибочная или следующая за ней строка)?

[Delphi_ProGer]

У меня сложились такие 2 варианта:
1) vesa[i+j*100] - ошибка здесь, может вы вышли за пределы массива...
2) или ошибка здесь - StatusBar1.Panels[0].Text (сомневаюсь что здесь, но может вы не создали Panel на StatusBar1).

P.S.
Все же хотелось узнать, где именно у вас возникает эта ошибка(на какой строке).

[Sciv]

Сомневаюсь, что i+j*100 даст индекс 0... разве что и i, и j равны 0 обе.

UPD Нет, судя по циклам, вполне может и такое случиться. И вот здесь:

for i:=0 to 99 do
for j:=0 to 99  do
begin
if Form1.Image1.Canvas.Pixels[i,j]

пикселы на канве точно с точки [0,0] отсчитываются?

Ну ладно, проверил в дельфе - точно с [0,0]. Этот кусок должОн работать

UPD 2. Еще проверил - точняк из-за панели статуса. Недостаточно просто кинуть на форму статус-бар, надо еще панель создать на нем.
А то, что по умолчанию - это так, хранилище для панелей.