[v1s2222]

shl осуществляет сдвиг влево целого числа и его не где не надо объявлять.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  x: Integer;
begin
  x := $5ABC;
  x := x shl 1;
  ShowMessage(IntToStr(x));
end;