Проверка четности

if Odd(N) then
  WriteLn('Нечётное')
else
  WriteLn('Чётное');
--------------------------------------------------
  if n and 1 = 0 then
    ShowMessage('Чётное')
  else
    ShowMessage('Нечётное');
--------------------------------------------------
function chet(const Value: Integer): Boolean;
asm
        bt      eax, 0
        jc      @@m1
        mov     eax, True
        ret

@@m1:
        mov     eax, False
end;
// с относительным смещением то самое для х86
function Chet(const Value: Integer): Boolean;
asm
dd 00E0BA0FH
dd 0C0310472H
dd 0C031C340H
end;
//применение
procedure TForm1.Button2Click(Sender: TObject);
begin
  if chet(StrToInt(Edit1.Text)) then
    ShowMessage('четное')
  else
    ShowMessage('не четное');
end;