[Aristarh Dark]

Можно так:

Код:

  if VarType(a) in [varSmallInt,varInteger,varInt64] then
    ShowMessage('Yes')
  else
    ShowMessage('No');