Ler Stream Bit por Bit em Delphi

Pessoal estou procurando uma forma de ler um TFileStream bit por bit, alguma ideia que possa me ajudar?