Например, такая запись:
## Код:
```
TgaHeader = RECORD;
   idLength: BYTE;
   colorMapType: BYTE;
   imageTypeCode: BYTE;
   colorMapSpec: ARRAY 5 OF BYTE;
   xOrigin: SHORTINT;
   yOrigin: SHORTINT;
   width: SHORTINT;
   height: SHORTINT;
   bpp: BYTE;
   imageDesc: BYTE
END;
```


Занести байты в поля с помощью rd.ReadByte и rd.ReadSInt не такая уж и проблема, но всё равно трудоёмко. Наверняка ведь можно сделать обобщённый вариант для всех записей. Или нет?