Старческое :)

Современному поколению, развращенному джавой и нетом, не понять всех прелестей структур указатель на указатель.

  ...
  fs.BlobID :=
    Qry.FieldByName(Field.FieldName).AsQUAD;

  PISC_QUAD(@Buff[PRecordData(Buff)^.rdFields[

      FMappedFieldPosition[Field.FieldNo - 1]
    ].fdDataOfs])^ := fs.BlobID;
  ...