сокращение из 2-х байт в 1 байт

[shynar]

Использую ассемблерную вставку в делфи. Есть массив из 8 байтов, т.е. скажем 8 символов. Хочу получить массив из 4-байт, т.е связать попарно из 8 байт  как это сделать на ассемблере или на делфи, и возможно ли это??? 

[Sla]

Код:

type
  OneTwo = record
    case byte of
      0: One : array [1..8] of byte;
      1: Two : array [1..4] of integer;
    end;