[Speech]

Сообщение от angvelem

Пока архив не смотрел.

Разберись с

Код:

function FindAreaPhotoEX(X, Y : Integer) : Boolean;
var
  I : Integer;
begin
  Result := False;

  for I := 0 to 30 do
  begin
    if Form1.Image1.Picture.Bitmap.Canvas.Pixels[X, Y] <> ArrayAreaPhoto[i] then
      Exit;
    Inc(X);
  end;

  Result := True;
end;

X наращивается локально или нужно отдавать наружу увеличенным.

Локально, там же в функцию передается не в виде var. Массив ArrayAreaPhoto глобальный. Наружу отдается True если прошли все совпадения по пикселям.