function ReadBitInByte(byteValue: Byte; bitIndex: Integer): Boolean;{// ×èòàííÿ êîíêðåòíîãî áіòó â áàéòі}
begin Result := (byteValue and (1 shl bitIndex)) <> 0;end;

procedure SetBitInByte(var byteValue: Byte; bitIndex: Integer; value: Boolean); {// Âñòàíîâëåííÿ êîíêðåòíîãî áіòó â áàéòі}
begin  if value then byteValue := byteValue or (1 shl bitIndex)  {// Âñòàíîâëþєìî áіò}
     else    byteValue := byteValue and not (1 shl bitIndex); {// Î÷èùàєìî áіò}end;