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. Строительство дачных домиков!
   Строительные услуги и материалы на доске объявлений AVITO.ru!
   www.avito.ru
    
3. Французские натяжные потолки!
   Матовые, сатиновые и лаковые. Все цвета! Узнайте цену потолка прямо сейчас!
   www.oknapanorama.ru
    
4. Новая работа! Свежие вакансии!
   Найди работу уже сегодня! Быстро! Легко! Здесь серьезные работодатели!
   elitevacansyyaf.do.am
    
5. Карта памяти Micro
   Карта памяти Micro Secure Digital Card 8GB, в "ПРОСТО"
   prosto.ru
    
6. Вакуумные насосы!
   Место встречи продавцов и покупателей. Объявления о продаже оборудования!
   www.olx.ru
    
7. Не знаете, как заработать быстро?
   Квартиры, машины и денежные призы всего за 50 рублей! Купи билет он-лайн!
   magazin.interlot.ru
    
8. Куплю трубопроводную арматуру
   Найдете за 5 секунд на YPAG.RU
   ypag.ru
    
9. Кровать-машина MILLI WILLI!
   Кровати MILLI WILLI от офиц. дилера! Выбирайте, заказывайте. Доставим!
   kupi-kolyasku.ru
    
10. МГГУ им.М.А.Шолохова
    Магистратура. 16 направлений подготовки. Бюджет и внебюджет.
    www.mggu-sh.ru
     
11. Карманные фляжки
    Фляги металлические, карманные, со стаканчиком, с отделкой и др. Доставка!
    flyagi.podberi-podarok.ru
     
12. Модные кеды из Европы и США
    Кеды 2011. Все модели в наличии. Примерка на дом. Быстрая доставка по РФ!
    www.lamoda.ru
     
13. Внедрения маркетинга.
    Подробнее на семинаре "Практика разработки и запуска нового продукта".
    www.mbs-seminar.ru
     
14. Фарфоровые блюда для сервировки
    Круглые, овальные и прямоугольные блюда из фарфора для сервировки стола.
    www.mospos.ru
     
15. Поливомоечные машины
    Дорожно-комбинированные машины. Выгодные цены! Компания ГрузСервис.
    www.gruzserv.ru
     
16. Закажите кредит сейчас онлайн!
    Кредит наличными до 1 000 000 руб. Без справок. Через интернет за 5 минут.
    закажите-кредит-сейчас.рф
     
17. Хотите сделать ремонт комнат?
    Ремонт комнат с гарантией качества. Скидки 5% до 15 августа! Заходите!
    beautyhouse5.ru
     
18. Распродажа брендовой одежды!
    Делайте покупки с умом! Скидки на бренды. Акции по 3 дня. Регистрируйтесь!
    fashion-yg.kupivip.ru
     
19. Ищете тур в Ниццу?
    Тур своими руками! Авиабилет+Отель! Поиск и бронирование по всему миру!
    www.jizo.ru
     
20. Городская коллегия адвокатов
    Бесплатно! Заполни форму - получи ответ! Бесплатное решение всех твоих бед!
    advokatoff.ru
     
21. VIP коттеджи на Пятницком шоссе
    30 км от МКАД. Развитая инфраструктура, охрана. Заселено 60 %. Спешите!
    genplan.grnw.ru
     
22. Лазерная гравировка
    Лазерные станки для гравировки по металлу, ПВХ и пластикам. Звоните!
    www.sharplase.ru
     
23. Джаз школа танцев!
    Школа современной хореографии. Дети от 4 до 16 лет. Звоните!
    moderndance.ru
     
24. Упражнения для позвоночника!
    Восстановите здоровье позвоночника без мануального терапевта!
    gym.ozdorovitespinu.ru
     
25. Поддержка и раскрутка сайта.
    Ещё не читал про Это на Сёрче? Гуру палят темы. Бесплатно!
    forum.searchengines.ru
     
26. Нагревательные маты ДЕВИ мат
    DTIF-150 от 3859р., DSVF-150 от 5920р. в наличии с доставкой. Звоните!
    www.deviheat.ru
     
27. Детская обувь Louis Vuitton
    Интернет-магазин модной детской обуви! Быстрая доставка! Новинки!
    www.wonderyear.ru
     
28. Официальный сайт Top Shop
    100% оригинальные ТВ-товары. Гарантия. Доставка по РФ
    www.top-shop.ru
     
29. Военные значки Германии. 3 рейх!
    Продажа подлинных немецких военных значков 3го рейха. Большой выбор.
    ritterkreuz.ru
     
30. Сергиев Посад: коттеджи
    Купля / продажа / аренда. Нацпортал Место.Ру: масса выгодных предложений!
    www.mesto.ru
     
31. Квартира, Академическая
    Срочно продается Квартира Науки просп., 19к2. 7 200 000 руб.
    realty.dmir.ru
     
32. блоки фбс размеры!
    Строительные материалы оптом. В наличии на складе. Поставки по России.
    www.bpks.ru
     
!