[lmikle]

А не проще сделать через запрос?
сам запрос:

Код:

SELECT * FROM [Table] WHERE [DateField] > :DF AND [DateField] < :DE

Заменить имя таблицы и поле даты, что в кв. скобках, на твои.

код

Код:

var
  I : Integer;
  S : String;
begin
ADOQuery1.Params.PAramByName('DF').AsTDateTime := DateTimePicker1.Date;
ADOQuery1.Params.PAramByName('DE').AsTDateTime := DateTimePicker1.Date;
ADOQuery1.Open;
ADOQuery1.First;
While Not ADOQuery1.EOF Do
Begin
  S := '';
  For I := 0 To ADOQuery1.Fields.Count-1 Do
    S := S + ADOQuery1.Fields[0].AsString + ' ';
  Memo1.Lines.Add(S);
  ADOQuery1.Next;
End;