Delphi-Help

{Функция проверяет, находится ли число N в массиве Values}

function Among(N: Integer; const Values: array of Integer): LongBool;

asm

   push ebx

   xor ebx, ebx

@@10:

   test ecx, ecx

   jl @@30

   cmp eax, [edx]

   jne @@20

   not ebx

   jmp @@30

@@20:

   add edx, 4

   dec ecx

   jmp @@10

@@30:

   mov eax, ebx

   pop ebx

end;

Пример использования: 

Among(N, [1, 2, 3, 4, 5])