[Ildar-tsr]

Лучше наверно фильтр использовать:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Filtered:= false;
  ADOQuery1.Filter:= '[abonenta] = '+QuotedStr(Edit1.Text);
  if (sDateEdit1.Text <> '') and (sDateEdit2.Text <> '') then
    ADOQuery1.Filter:= ADOQuery1.Filter + ' and [Date] between '+QuotedStr(sDateEdit1.Text)+' and '+QuotedStr(sDateEdit2.Text);
  ADOQuery1.Filtered:= true;
end;