Y mucho mejor, si en lugar de usar un procedimiento se usa una función, la cual, debe devolver 0 para el caso en que se produzca un error y suponiendo, además, que el combobox tenga los meses ordenados:
Código:
function NumeroMes: integer;
begin
result := ComboBox.ItemIndex + 1
end;
mucho más simple que todo lo expuesto hasta ahora.
NOTA: Pasar como parámetro el nombre del mes es una tontería si éstos están almacenados en el comboBox. Mejor usar el ComboBox como variable general del módulo.