//Convert String to byte array for i := 0 to (length(sinput) div 2)-1 do boutput:= StrToInt('$'+copy(sinput,i*2+1,2));
//Convert String to byte array for i := 0 to (length(sinput) div 2)-1 do binput:= StrToInt('$'+copy(sinput,i*2+1,2));