[Alloc]

Большое Вам спасибо за ответ Vayrus, думая это то что надо. А дальше проверять на цвет так?

Код:

var
  delta: Variant;
begin
delta:= 160;
dstPixel := Bmp1.ScanLine[Y];
for X := 0 to Width - 1 do
begin
  with dstPixel^ do
  begin
    rgbRed := dstPixel^.rgbRed;
    rgbGreen := dstPixel^.rgbGreen;
    rgbBlue := dstPixel^.rgbBlue;
    Inc(srcPixel);
  end;
    if Abs(GetRValue(dstPixel^.rgbRed) - 160) < delta and
       Abs(GetGValue(dstPixel^.rgbGreen) - 170) < delta and
       Abs(GetBValue(dstPixel^.rgbBlue) - 170) < delta then
       x:=x+15; // Тут выдает ошибку "Assignment to FOR-Loop variable 'X'"

  Inc(dstPixel);
end;
end;

Поправьте пожалуйста меня если не сложно, идея такая, если во время сканирования мы наткнулись на определенный цвет - перепрыгиваем на 15 пикселей дальше и продолжаем и дальше в том же духе. Я пытался изобразить нечто подобное, но не вышло. Будьте добры, помогите. Заранее спасибо.