if Abfragen abkürzen

[Daniel B]

kann mir vielleicht bitte jemand sagen ob und wie ich diese Abfrage abkürzen kann?

Code:

  if CPBaud = '2400' then
  begin
    CBBaud.ItemIndex := 0;
  end
  else if CPBaud = '4800' then
  begin
    CBBaud.ItemIndex := 1;
  end
  else if CPBaud = '9600' then
  begin
    CBBaud.ItemIndex := 2;
  end
  else if CPBaud = '14400' then
  begin
    CBBaud.ItemIndex := 3;
  end
  else if CPBaud = '19200' then
  begin
    CBBaud.ItemIndex := 4;
  end
  else if CPBaud = '28800' then
  begin
    CBBaud.ItemIndex := 5;
  end
  else if CPBaud = '38400' then
  begin
    CBBaud.ItemIndex := 6;
  end;

Vielen Dank.