проблема с массивом и бд

[hunter03]

Здравствуйте, столкнулся с такой проблемой:
у меня в Image загружена картинка 200х200. На картинке есть изображения синего, зеленого, серого и красного цветов. Я ввожу в бд координаты и цвета каждого пиксела картинки( 3 поля X,Y,color)
Далее мне нужно по клике на кнопку исходя из моих данных в бд вывести к примеру только зеленые излбражения
Делаю так:

procedure TForm1.btn1Click(Sender: TObject);
var i,j,n, ii:Integer;
cmpcolor:array[1..5000]of Cardinal;
begin
n:=1;
  while n<=Table1.RecordCount do begin
cmpcolor[n]:=StrToInt(Table1.FieldByName('Color').Value);
        Table1.Next;  n:=n+1;
  end;
       for ii:=0 to n do
 for i:=0 to Image1.Picture.Height-1 do
  for j:=0 to Image1.Picture.Width-1 do
   begin
if cmpcolor[n]=65280 then //зелений цвет
image1.Picture.Bitmap.Canvas.Pixels[i,j]:=cmpcolor[n];

  end;

        end;

Но вылетает непонятная ошибка...подскажите в чем тут дело

[Dush]

а что за ошибка? что пишет?

[hunter03]

ну вобщето оно прост выходит из проги и все, а если из под делфи то выбрасывает в CPU и все, в чем проблема не пойму
for ii:=1 to Table1.RecordCount-1 do begin
cmpcolor[ii]:=StrToInt(Table1.FieldByName('Colo r').Value);

end;
так пробовал все равно тоже самое...может из за больших обьемов чисел? но массив тож большой обьявлен

[Dush]

почему вы при чтении из базы сразу не проверяете на цвет? у вас же в базе хранится и цвет и координаты
считывать можно так:

table1.first;
while not table1.EOF do
begin
  проверяете цвет и заносите на свою картинку;
  table1.next;
end;

и без массивов

[hunter03]

да, так и сделал в разы быстрее)