case ... of как упростить?

[kta87]

Подскажите, как можно упростить ниже показанный код:

// Получение данных
 case ComboBox1.ItemIndex of

 0:
   begin
     m1:= 13;
   end;
 1:
   begin
     m1:= 15;
   end;
 2:
   begin
     m1:= 52;
   end;
 3:
   begin
     m1:= 42;
   end;
 4:
   begin
     m1:= 52;
   end;
 5:
   begin
     m1:= 56;
   end;
 6:
   begin
     m1:= 110;
   end;
 7:
   begin
     m1:= 178;
   end;

 end;

 case ComboBox2.ItemIndex of

 0:
   begin
     m2:= 13;
   end;
 1:
   begin
     m2:= 15;
   end;
 2:
   begin
     m2:= 52;
   end;
 3:
   begin
     m2:= 42;
   end;
 4:
   begin
     m2:= 52;
   end;
 5:
   begin
     m2:= 56;
   end;
 6:
   begin
     m2:= 110;
   end;
 7:
   begin
     m2:= 178;
   end;
 8:
   begin
     m2:= 0;
   end;

 end;

 case ComboBox3.ItemIndex of

 0:
   begin
     m3:= 13;
   end;
 1:
   begin
     m3:= 15;
   end;
 2:
   begin
     m3:= 52;
   end;
 3:
   begin
     m3:= 42;
   end;
 4:
   begin
     m3:= 52;
   end;
 5:
   begin
     m3:= 56;
   end;
 6:
   begin
     m3:= 110;
   end;
 7:
   begin
     m3:= 178;
   end;
 8:
   begin
     m3:= 0;
   end;

 end;

[Аватар]

const cConst1: array [0..7] of Integer = (13,15,52,42,52,56,110,178);
...
  if (ComboBox1.ItemIndex>=Low(cConst1)) and (ComboBox1.ItemIndex<=High(cConst1)) then m1:=cConst1[ComboBox1.ItemIndex];
//или просто если 100% ComboBox1.ItemIndex>=0 и ComboBox1.ItemIndex<=7
  m1:=cConst1[ComboBox1.ItemIndex];
... остальные аналогично с другим массивом констант

[_Engine_]

если begin ... end убрать компактней будет

[kta87]

Сообщение от Аватар

const cConst1: array [0..7] of Integer = (13,15,52,42,52,56,110,178);
...
  if (ComboBox1.ItemIndex>=Low(cConst1)) and (ComboBox1.ItemIndex<=High(cConst1)) then m1:=cConst1[ComboBox1.ItemIndex];
//или просто если 100% ComboBox1.ItemIndex>=0 и ComboBox1.ItemIndex<=7
  m1:=cConst1[ComboBox1.ItemIndex];
... остальные аналогично с другим массивом констант

Спасибо за интересное решение!