Помогите с записями с вариантами Опции

[Valeri]

Привет)
У меня проблема:необходимо Реализовать очередь на базе динамического списка. Пользовательский элемент списка – либо 4, либо 8, либо 10-х байтное вещественное и двух строк переменной длины . Видимо пользоват.элемент-это хапись с вариантными полями для вещественного... Подскажите, плиз, как лучше реализовать эту запись и как в проге определить ключ выбора. Или дайтк ссылочку , где мона про это почитать)
Заранее пасибо)

[mj]

type
 TRec = record
   Data: Variant;
   Str1: string;
   Str2: string;
 end;

var
 A: array of TRec;