Delphi で bit 単位でファイルを読み書きする方法はありますか？