function BinStrToByte(a_sBinStr: string): byte;
var
 i: integer;
begin
 Result := 0;
 for i := 1 to length(a_sBinStr) do
  Result := (Result shl 1) or byte(a_sBinStr[i] = '1');
end;