function VType (v : variant) : word;

const VT_EMPTY	 = 0;   // [V]   [P]  nothing
const VT_NULL		= 1;   // [V]		SQL style Null
const VT_I2		= 2;   // [V][T][P]  2 byte signed int
const VT_I4		= 3;   // [V][T][P]  4 byte signed int
const VT_R4		= 4;   // [V][T][P]  4 byte real
const VT_R8		= 5;   // [V][T][P]  8 byte real
const VT_CY		= 6;   // [V][T][P]  currency
const VT_DATE		= 7;   // [V][T][P]  date
const VT_BSTR		= 8;   // [V][T][P]  binary string
const VT_DISPATCH	= 9;   // [V][T]	 IDispatch FAR*
const VT_ERROR	 = 10;  // [V][T]	 SCODE
const VT_BOOL		= 11;  // [V][T][P]  true=-1, false=0
const VT_VARIANT	 = 12;  // [V][T][P]  VARIANT FAR*
const VT_UNKNOWN	 = 13;  // [V][T]	 IUnknown FAR*
const VT_DECIMAL	 = 14;  // [V][T][S]  16 byte fixed point
const VT_I1		= 16;  // [T]	 signed char
const VT_UI1		 = 17;  // [T]	 unsigned char
const VT_UI2		 = 18;  // [T]	 unsigned short
const VT_UI4		 = 19;  // [T]	 unsigned short
const VT_I8		= 20;  // [T][P]  signed 64-bit int
const VT_UI8		 = 21;  // [T]	 unsigned 64-bit int
const VT_INT		 = 22;  // [T]	 signed machine int
const VT_UINT		= 23;  // [T]	 unsigned machine int
const VT_VOID		= 24;  // [T]	 C style void
const VT_HRESULT	 = 25;  // [T]
const VT_PTR		= 26; // [T]	 pointer type
const VT_SAFEARRAY   = 27; // [T]	 use VT_ARRAY in VARIANT
const VT_CARRAY	= 28; // [T]	 C style array
const VT_USERDEFINED = 29; // [T]	 user defined type
const VT_LPSTR	= 30; // [T][P]  null terminated string
const VT_LPWSTR   = 31; // [T][P]  wide null terminated string

const VT_FILETIME = 64;  // [P]  FILETIME
const VT_BLOB	 = 65;  // [P]  Length prefixed bytes
const VT_STREAM   = 66;  // [P]  Name of the stream follows
const VT_STORAGE  = 67;  // [P]  Name of the storage follows
const VT_STREAMED_OBJECT = 68; // [P] Stream contains an object
const VT_STORED_OBJECT  = 69; // [P] Storage contains an object
const VT_BLOB_OBJECT	= 70; // [P]  Blob contains an object
const VT_CF			 = 71; // [P]  Clipboard format
const VT_CLSID		= 72; // [P]  A Class ID

const VT_VECTOR   =  4096; // $1000 [P] simple counted array
const VT_ARRAY	=  8192; // $2000 [V] SAFEARRAY*
const VT_BYREF	= 16384; // $4000 [V]
const VT_RESERVED = 32768; // $8000
const VT_ILLEGAL  = 65535; // $ffff
const VT_ILLEGALMASKED =  4095; // $0fff
const VT_TYPEMASK	=  4095; // $0fff

var v : variant;
v := longint(10);
if( vType(v) = VT_I4 )
...

Объявления:

1. купить электронные наручные часы casio
   Электронные часы casio мужские купить купить электронные наручные часы casio.
   https://timeoclock.ru
    
2. Фискализация терминалов оплаты
   фискализация платежных терминалов регистраторы поддержка сервис
   kioskservice.ru
    
3. Влагомер зерна ЦВЗ-3А
   ТД Измерение Поставка оборудования по России и СНГ Сжатые сроки Низкие цены
   www.laborant.ru
    
4. Пионерская - все общаются здесь
   Железнодорожный, Пионерская - соседи создали независимые форумы.
   www.tsj.ru
    
5. Женские Сумки Mascotte
   В каждой коллекции от 500 моделей. Поиск по магазинам. Бесплатная доставка!
   shop.mascotte.ru
    
6. Какие электронные сигареты лучше?
   Прочитайте отзывы и решите сами, какие электронные сигареты лучшие для Вас!
   e-73.ru
    
7. Центр образования Элкод
   Бухгалтерские курсы в Москве, МСФО. Делопроизводство и аудит.
   www.eduel.ru
    
8. Черепица.Облегченная 6,3 кг/м кв.
   Классический профиль.Простой монтаж, прекрасный внешний вид.Цвет на выбор.
   www.polikrolax.ru
    
9. Посуточно. Только центр Москвы!
   Сегодня все кв-ры заняты! Бронируем с 21 мая от 4400 р.сутки. От 2-х суток!
   www.tverskayastreet.ru
    
10. Кафель, керамогранит
    Выгодно купи или продай на портале бесплатных объявлений Экстра_М!
    www.extra-m.ru
     
11. Немецкий и голландский фасадный
    кирпич керамический коричневый. От 1700 р/м2, 34р./шт. Бесплатная доставка
    www.klinkerbrick.ru
     
12. Плетеные кресла
    Огромный выбор мебели в Интернет-магазине. Доставка по Москве и РФ. Скидки
    www.meb2.com
     
13. Отдых в Израиле - цены 2011
    Цены на отдых в Израиле от 17000 руб. Онлайн консультации, цены на сайте!
    utatravel.ru
     
14. Жарко? Ищете кондиционер?
    Продажа и монтаж бытовых и промышленных кондиционеров. Качественно!
    ktn-stroy.ru
     
15. Дачный поселок "Сивково"!
    Участки эконом-класса без подряда! Только в августе сотка в подарок!
    www.sivkovo.info
     
16. Ремонт тошиба в Москве
    Ремонт ноутбуков, мониторов, фотоаппаратов, телевизоров. Гарантия
    ajs.ru
     
17. Летние шины 20-го диаметра
    Летние шины 20-го диаметра от оф. дилера Dunlop. скидки покупателям!
    www.dunlop-road.ru
     
18. Утепленные шкафы для оборудования
    Диабоксы (diabox), шкафы КШО, металлодиабоксы
    rizur.ru
     
19. PKF 645T14
    Bosch PKF 645T14. Цена: 11860 руб. Купите Онлайн!
    fifty.ru
     
20. Бамперы
    Ищешь где купить Бамперы дешевле? Жми сюда!
    оцене.рф
     
21. Путевки в Тунис
    Отдыхай со скидками от 50%! Только лучшие предложения сезона
    bigbuzzy.ru
     
22. Квартиры в Лукино
    Квартиры, новостройки и жк в Москве и МО. Полная база и лучшие предложения!
    kvartirazamkad.ru
     
23. Дешевые авиабилеты в Индию
    Авиабилеты online 24 часа в сутки! Все направления! Скидки от 3 до 7%!
    www.talarii.ru
     
24. Купоны на скидки. Детская одежда
    Сайт волшебных скидок. Скидки на детские товары в розничных магазинах
    kotkupon.ru
     
25. Закажи надежно диплом 1500 р.
    Экономические, психологические, юридические, гуманитарные. Гарантия
    www.diplomland.ru
     
26. iPhone упал и не включается?
    Починим! Ремонт iPhone любых моделей. Бесплатный мастера выезд по Москве!
    servise-apple.ru
     
27. Погрузчик цены!
    Купите погрузчик на сайте Из рук в руки! Новые и б/у. Свежие объявления
    irr.ru
     
28. Высшее образ-е в юридическом ВУЗе
    Очное/заочное. Госдиплом. Доступные цены.Обучают практикующие специалисты.
    www.msei.ru
     
29. Туры в Словению. Сезон 2011
    Туры в Словению по низким ценам. Сезон 2011. Оnline-подбор, скидки, акции!
    www.1001tur.ru
     
30. Гайка врезная
    Широкий ассортимент крепежных изделий. Оптом, в розницу. Каталог:
    www.samorezik.ru
     
31. Авиабилеты в Окленд!
    Лучшие предложения авиакомпаний за 1 мин.! Быстро, легко и надежно!
    sindbad.ru
     
32. Чистка лица в салоне "Авина" !!!
    1500руб! Чистка уход по типу кожи в салоне "Авина" на Маяковской!
    avinastyle.ru
     
!