[angvelem]

Код:

function FindAreaPhoto(X, Y, StopX, StopY : Integer) : CursorXY;
begin
...
    // Возвращает найденную позицию, к примеру 1310 по X
    CursorPosition := FindPixel(ArrayAreaPhoto[0], CursorPosition.X, CursorPosition.Y, StopX, StopY);
...
      // наращивает, но в следующем цикле, FindPixel опять вернёт 1310
      // и так до бесконечности
      Inc(CursorPosition.X);  {нам же в другой раз нужен следующий пиксель по координате X}
...
end;