Координаты пикселей в Image

[bulldog5293]

нашёл пример получения цвета пикселя в Image

   Color:=Image1.Canvas.Pixels[100, 100];

Но возник вопрос, а как получить цвета всех пикселей в Image и записать в файл, просто с записью в файл траблов нет, но вот не понимаю как получить все цвета, ведь сначала проходить нужно будет с [1 и до ...]; а это до тоже может меняться. Может кто ни будь подсказать, если в [1,и до ...] дальше пиксели не идут как сместится на [2 и до ...]

[lexaltd]

Примерно так:

 for i := 1 to Image1.Width do
  for j := 1 to Image1.Height do
   begin
     Color:=Image1.Canvas.Pixels[i, j];
   end;

[Аватар]

Уж если так, то:

for i := 0 to Image1.Width-1 do
  for j := 0 to Image1.Height-1 do
   begin
     Color:=Image1.Canvas.Pixels[i, j];
   end;

и достаточно медленно работает