Hola jose.
Te pongo dos ejemplos de como podrías hacerlo.
Con un ComboBox, cuyos items sean:
Irregular
Regular
Código Delphi
[-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
DataSet.Filtered:= False;
DataSet.Filter:= 'Condicion = '+ IntToStr(ComboBox1.ItemIndex);
DataSet.Filtered:= True;
end;
Aquí es importante que el alumno no-regular esté en primera posición. Ya que la posición del ítem, mediante la propiedad
ItemIndex, es la que dictamina el valor Verdadero/Falso (0=Falso / 1= Verdadero)
Con un CheckBox cuyo caption sea Regular, donde chequeado = regular, en blanco = irregular:
Código Delphi
[-]
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
DataSet.Filtered:= False;
DataSet.Filter:= 'Condicion = '+ IntToStr(Integer(CheckBox1.Checked));
DataSet.Filtered:= True;
end;
Saludos.