TBitStream

type TBitStream = class

protected

  procedure SetSyncWord();

public

  constructor Create();

  destructor Destroy; override;

  procedure Reset;

  function GetHeader();

  function ReadFrame();

  function GetBits();

  function GetBitsFloat();

  function StreamSize;

  function Seek();

  function SeekPad();

  property Stream: TStream; [r]

  property CurrentFrame: Integer; [r]

  property LastFrame: Integer; [r]

  property SyncWord: Cardinal; [rw]

end;

TBitStream

TObject