Здравствуйте, ky_, Вы писали:

ky_> Как сделать сабж в цикле ? ]
см. system.pas

  TypeInfo(trecord)

  TTypeInfo = packed record
    Kind: Byte;
    Name: ShortString;
   {TypeData: TTypeData}
  end;

  TFieldTable = packed record
    X: Word;
    Size: Cardinal;
    Count: Cardinal;
    Fields: array [0..0] of TFieldInfo;
  end;

  TFieldInfo = packed record
    TypeInfo: PPTypeInfo;
    case Integer of
    0: ( Offset: Cardinal );
    1: ( _Dummy: NativeUInt );
  end;

ky_>подумалось на досуге (если я правильно понял задачу)
ky_>можно в классе TEmployee первым полем сделать массив названий полей а вторым полем массив смещений и смотри себе потом названия полей их значения.
TStringList с детства ненавидишь?