С объектом тоже не всё просто, у него не фиксированное количество данных в секции. Нужно что то типа этого:
Код:
type
TItems = record
Name : Stirng;
Value : array[0..3] of Integer;
end;
TMyObject = class
Items : array of TItems;
end;
и соответственно, сначала прочитать всю секцию, создать объект установить размерность массива, заполнить и только потом присвоить.
Вот пример: