TPutFieldInfo = record
  FieldNo: Integer;
  Field: TField;
  DataSet: TDataSet;
  Size: Integer;
  IsDetail: Boolean;
  Opened: Boolean;
  PutProc: TPutFieldProc;
  LocalFieldIndex: Integer;
  FieldInfos: Pointer;
end;

struct TPutFieldInfo {
  int FieldNo;
  TField Field;
  TDataSet DataSet;
  int Size;
  Boolean IsDetail;
  Boolean Opened;
  TPutFieldProc PutProc;
  int LocalFieldIndex;
  void * FieldInfos;
};