Como formar um WORD a partir de dois BYTE

procedure TForm3.Button2Click(Sender: TObject);
var
  resultado: WORD;
  ordem_alta, ordem_baixa: BYTE;
begin
  // byte mais significativo
  ordem_alta := 80;

  // byte menos significativo
  ordem_baixa := 120;

  // vamos juntar os dois valores em um WORD
  resultado := MAKEWORD(ordem_baixa, ordem_alta);

  // vamos exibir o resultado
  Memo1.Lines.Add('O valor WORD resultante é: ' +
    IntToStr(resultado));
end;

function MakeWord(A, B: Byte): Word;
begin
  Result := A or B shl 8;
end;

00000000 01111000 (ordem baixa)
01010000 00000000 (ordem alta - depois de aplicado o operador shl)
-----------------
01010000 01111000