[movnet]

Код:

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

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

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