var
  before, after : Word;
begin
  // Установка начального числа
  before := $3C;      // Hex 3C = 003C в Word

  // Сдвиг влево на 12 потеряет верхние 12 бит Word
  after := before Shl 12;

  ShowMessageFmt('До : %x',[before]);
  ShowMessageFmt('После смещения влево: %x',[after]);

  // Смещение вправо на 12 не возвратит потерянные данные
  after := after Shr 12;

  ShowMessageFmt('После смещения вправо : %x',[after]);
end;