unit drop_fields_m; interface type dropStatePtr = ^dropState; dropState = record crazyField1: boolean; crazyField2: boolean; crazyField3: boolean; end; implementation end.