[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 наращивается локально или нужно отдавать наружу увеличенным.