¿Y que te parece si a esos ifs los reducimos?
Código Delphi
[-]procedure Tform1.ComboBox1Change(Sender: TObject);
begin
mes := IntToStr(ComboBox1.ItemIndex + 1);
end;
No estoy seguro si es ItemIndex, o Index... no tengo Delphi a mano. La idea es que cuando selecciona una opción del combo, en mes (alguna variable global) quede guardado el string.
Siempre y cuando los meses estén ordenados del 1 al 12 va a funcionar.
Saludos,