[roman]

Y respecto a la pregunta original, si el combo tiene almacenados los meses en el orden natural entonces el procedimiento se puede hacer así

procedure NumeroMes(nombre:String);
begin
  if ComboBox.ItemIndex <> -1 then
    MesActual := ItemIndex + 1
  else
    ShowMessage('Error en Mes Seleccionado');
end;

// Saludos