Считка данных по-битно из COM порта

[Terran]

Всем привет! У меня возник вопрос. Как можно из COM порта считать информацию по-битно? В виде 0 и 1.
Вот пример кода, который позволяет читать байты из порта:

Function TByte(X: Byte): Byte;
Var
N: Integer;
B: Byte;
D,Time: DWord;
Begin
Result:=$FF;
SetModCom(115200,8,NOPARITY,ONESTOPBIT,True,False);
PurgeCom;
Time:=GetTickCount + 50;
For N:=1 To 8 Do
Begin
If Odd(X) Then
TxByteCOM($FF)
Else
TxByteCOM($00);
X:=X Shr 1;
Repeat
RxDataCOM(B,1,D);
Until
(D = 1) Or (Time < GetTickCount);
If D <> 1 Then
Exit;
If Odd(B) Then
X:=X Or $80;
If Odd(B Xor CRC) Then
CRC:=((CRC Xor $18) Shr 1) Or $80
Else
CRC:=CRC Shr 1;
End;
Result:=X;
End;

Как его можно изменить, что бы можно было читать биты в виде 0 и 1? Или может нужно написать дополнительную функцию, которая конвертировала из байт в биты?
На С++ я видел используется следующий код:

* Read a bit from the 1-wire bus and return it.
 */
uint8_t
OWReadBit(void) {
    OWdelay();

    OWIREOUTPORT &= ~(_BV(OWIREOUTPIN));
    OWIREDDR |= _BV(OWIREOUTPIN);
    DELAY_A;
    OWIREDDR &= ~(_BV(OWIREOUTPIN));
    DELAY_E;
    return(OWIREINPORT & _BV(OWIREINPIN) ? 1 : 0);
}

но С++ я не знаю...

[3D Hunter]

так в чем проблема? если вы получили байты, то и напишите функцию, которая будет байты превращать в последовательностей битов, и выводите ее хоть строкой или массивом динамическим из логических переменных

[3D Hunter]

Вот набросал для вас функцию получения битов из байта:

function ByteToBits(const AByte:Byte):AnsiString;
var
  i,LMask:Byte;
  LBit:AnsiString;
begin
  LMask:=1;
  SetLength(Result,8);
  for i:=8 downto 1 do
  begin
    LBit:=IntToStr(Ord((AByte and LMask)=LMask));
    Result[i]:=LBit[1];
    LMask:=LMask shl 1;
  end;
end;

//использование
procedure TForm2.Button1Click(Sender: TObject);
begin
  Label1.Caption:=ByteToBits(StrToInt(Edit1.Text));
end;

[Terran]

3D Hunter, большое спасибо!