//在汇编中使用常量
var
  a: Integer;
const
  n = $10;
begin
  asm
    mov ecx, 10             {使用十进制常数}
    mov a, ecx
  end;
  ShowMessage(IntToStr(a)); {10}

  asm
    mov ecx, $10            {使用十六进制常数}
    mov a, ecx
  end;
  ShowMessage(IntToStr(a)); {16}

  asm
    mov ecx, 10H            {可以加 H 或 h 表示十六进制}
    mov a, ecx
  end;
  ShowMessage(IntToStr(a)); {16}

  asm
    mov ecx, n              {使用预定义常量}
    mov a, ecx
  end;
  ShowMessage(IntToStr(a)); {16}
end;