НН
Николай Николаевич
тип данных byte это целочисленный тип от 0 до 255 и занимает в памяти всего 1 байт.
function BinToInt(Value: String): LongInt;
var
i,Size: Integer;
begin
Result:=0;
Size:=Length(Value);
for i:=Size downto 0 do begin
if Copy(Value,i,1)='1' then begin
Result:=Result+(1 shl i);
end;
end;
end;