Hola.
Código Delphi
[-]
....
procedure TForm1.FormShow(Sender: TObject);
begin
ComboBox1.ItemIndex:= 0;
ComboBox2.ItemIndex:= ComboBox2.Items.Count -1;
end;
procedure TForm1.ComboBoxChange(Sender: TObject);
begin
with DBGrid1.DataSource do
begin
DataSet.Filtered:= False;
DataSet.Filter:= 'MES >= '+QuotedStr(ComboBox1.Items[ComboBox1.ItemIndex])+
' AND MES <= '+QuotedStr(ComboBox2.Items[ComboBox2.ItemIndex]);
DataSet.Filtered:= True;
end;
end;
...
Por supuesto funciona si en los combos tenés los nombres de los meses y asignas
ComboBoxChange al evento
OnChange de los dos combos...
Un saludo.