[Drozh]

Код:

s := 2;
s := s shl 1;
Label1.Caption := IntToStr(s);