tAnimComp

type tAnimComp = record

  Flags: SmallInt;

  Timer: SmallInt;

  TimeSet: SmallInt;

  NextComp: pAnimComp;

  PrevComp: pAnimComp;

  NextSeq: pAnimComp;

  PrevSeq: pAnimComp;

  AnimCRoutine: Pointer;

  YTrans: SmallInt;

  XTrans: SmallInt;

  HeadOb: Pointer;

  AnimBob: pBob;

end;