Выбор структуры данных в Run-time

[moon-guest]

Доброго дня всем!!!
При решении очередной задачи появился такой вопрос.
А возможно ли во время выполнения программы выбирать структуру и работать с ней?
Хотелось бы как нибудь по индексу но получается только так:

rec1=record
    prm1:string;
    prm2:integer;
end;
rec1=record
    prm1: array[0..2] of byte;
    prm2: single;
    prm3: char;
end;
test=record
  case byte of
    0: (data1:rec1);
    1: (data2:rec2);
  end;

,но пока ничего не получается. Так как приходится выбирать подструктуру по имени.

var
   k: test;
......
k.data1.prm1;
k.data2.prm3;

Желаемый результат.

k[0].prm1;
k[1].prm3;

Кто может что нибудь предложить дельное???