Считываю цвета и получаю $FFFFFFFF..

[Alex Cones]

Гы. Надо было мне прояснить свой код раньше. Вы тут не заметили одну деталь:

   While N[i]<> Image1.Canvas.Pixels[X,Y] do
    If N[i] = 0 Then N[i] := Image1.Canvas.Pixels[X,Y] Else
     Inc(I);
   End;

Вот например у нас (для простоты имадж 17*1) пусть первые 16 цветов - разные, а последний равен второму:
1) Гоняются циклы и заполняется массив.
2) Дошли до последнего элемента:

While N[i]<> Image1.Canvas.Pixels[X,Y]

Нет, не равен, значит заходим в цикл

If N[i] = 0 Then N[i] := Image1.Canvas.Pixels[X,Y]

нет, N[0]<>0? значит прем по Else

Inc(I);

Теперь I = 1

While N[i]<> Image1.Canvas.Pixels[X,Y]

А теперь вылазием из цикла, Ведь N[1] = цвету последнего пикселя.

[Alex Cones]

НАШЕЛ!!! Оказывается у Image1 не был выставлен AutoSize. Спасибо за внимание!

[BOBAH13]

А можно еще вопрос, дошли до последнего, ну это при i = 15, а вот после этого

нет, N[0]<>0? значит прем по Else
Код:


Inc(I);

Теперь I = 1

С какого перепуга, i было 15, потом увеличили на 1, и оно стало 1 вот это действительно фантастика

Edit:
Вообщем ясно, тут не помочь я про цикл while, ведь условие if n[i] = 0 и приравнивание, и увеличение i все происходит в этом же цикле while, и когда нибудь, 99% i станет больше 15, и тогда в цикле while n[16] <> image1... ну а вот каким чудесным образом после того как был вызван Inc(I); причем I был 15, сразу после вызова, I станет = 1, это я не могу понять. Вообще даже удивляет, как цикл, не зацикливается, видимо пишет в память, все пиксели, после массива... надеюсь не зацепит ничего важного

[Alex Cones]

 For Y:=0 to Image1.Height - 1 do
  For X:=0 to Image1.Width -1 Do
   Begin
   I:=0;
   While N[i]<> Image1.Canvas.Pixels[X,Y] do
    If N[i] = 0 Then N[i] := Image1.Canvas.Pixels[X,Y] Else
     Inc(I);
   End;

Перед каждым циклом обнуляется счетчик.