[lmikle]

Допустим, у тебя приходят байты (тип byte)
тогда:

Код:

const
  Bit4 =  $00010000; // Четвертый справа, т.к. первый считается нулевым.

var
  InByte : Byte;
begin
  ...
  If (Byte And Bit4) <> 0 
    Then ... // Битик стоит
    Else ...; // Битик не стоит