Qual o correto alinhamento do Case com begin/end?

case ComboBox1.ItemIndex of
  0: varialvelx := valorx;
  1: begin
        DoAnything;
        ShowMessage(´ItemIndex = 1´);
     end;
  2: showmessage(´xiii.... deu pau!´);
  3: begin
        Abort;
        FaçaAlgo;
     end;
  else
    ShowMessage(´nenhuma das anteriores´);
end;

case ComboBox1.ItemIndex of
  0:
  varialvelx := valorx;
  1:
  begin
     DoAnything;
     ShowMessage(´ItemIndex = 1´);
  end;
  2:
  showmessage(´xiii.... deu pau!´);
  3:
  begin
    Abort;
    FaçaAlgo;
  end;
  else
    ShowMessage(´nenhuma das anteriores´);
end;

// CORRECT
  case ScrollCode of
    SB_LINEUP, SB_LINEDOWN:
      begin
        Incr := FIncrement div FLineDiv;
        FinalIncr := FIncrement mod FLineDiv;
        Count := FLineDiv;
      end;
    SB_PAGEUP, SB_PAGEDOWN:
      begin
        Incr := FPageIncrement;
        FinalIncr := Incr mod FPageDiv;
        Incr := Incr div FPageDiv;
        Count := FPageDiv;
      end;
  else
    Count := 0;
    Incr := 0;
    FinalIncr := 0;
  end;