[true]

Вы не подумайте что я не хочу ничего делать..я сделал что смог, то что немогу сделть прошу вас помоч, сам пытался найти, я выложу исходник быть может вы так пойме, здесь сделал как говорил Страдалец:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, ToolWin, ComCtrls;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    ToolBar1: TToolBar;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Button1: TButton;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
f,b:TDateTime;
begin

f := StrToDateTime(Edit1.Text);
b := StrToDateTime(Edit2.Text);
while not Datamodule2.AdoTable1.Eof
do begin
    if (DataModule2.ADOTable1.FieldByName('Дата_нарушения').asDateTime >= b) and
       (DataModule2.AdoTable1.FieldByName('Дата_нарушения').asDateTime <= f)

    then Memo1.Lines.Add(Datamodule2.AdoTable1.FieldByName('Дата_нарушения').asString);
    DataModule2.AdoTable1.Next;
    end; 
end;



procedure TForm1.CheckBox1Click(Sender: TObject);
var
a:string;
begin
a:=CheckBox1.Caption;
if CheckBox1.Checked then
DataModule2.ADOTable1.Filtered:=false;
DataModule2.ADOTable1.Filter:='Нарушение='''+a+'''';
DataModule2.ADOTable1.Filtered:=true;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
var
a:string;
begin
a:=CheckBox2.Caption;
if CheckBox2.Checked then
DataModule2.ADOTable1.Filtered:=false;
DataModule2.ADOTable1.Filter:='Нарушение='''+a+'''';
DataModule2.ADOTable1.Filtered:=true;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
var
a:string;
begin
a:=CheckBox3.Caption;
if CheckBox3.Checked then
DataModule2.ADOTable1.Filtered:=false;
DataModule2.ADOTable1.Filter:='Нарушение='''+a+'''';
DataModule2.ADOTable1.Filtered:=true;
end;

end.