[angvelem]

Чего там разбираться

Код:

procedure TForm1.btnLeftClick(Sender: TObject);
begin
  dec(ShiftBit);
  if ShiftBit < -32 then
    ShiftBit := -32;
  lblShiftBit.Caption := Format(ShiftSt, [ShiftBit]);
  Calculate;
end;

procedure TForm1.btnRightClick(Sender: TObject);
begin
  inc(ShiftBit);
  if ShiftBit > 32 then
    ShiftBit := 32;
  lblShiftBit.Caption := Format(ShiftSt, [ShiftBit]);
  Calculate;
end;

Тогда переводи число в String и работай уже с ним.