naja da es nur "bytes" sind gehts
interpretiere das array als ein Word und shifte in dem.
Delphi-Quellcode:
var arr: Array[0..1] of Byte = (00000000,10000000); // binär
w:Word;
begin
// arr := arr shl 1;
// =>
// arr = (00000001,00000000);
@w := @arr[0] ; // oder 1 ???
w := w shl 8;
end;