Hola...
Podrías hacer algo como esto:
Código Delphi
[-]
procedure TMyForm.DateSearch(ADate: TDate; AQuery: TQuery);
begin
AQuery.Close;
AQuery.SQL.Text := 'select * from Tabla where Fecha = :Fecha';
AQuery.ParamByName('Fecha').AsDate := ADate;
AQuery.Open
end;
Este método recibe dos parámetros, la fecha que quieres usar para filtrar tu tabla y un objeto
TQuery que es sobre el que quieres hacer el filtro...
Para llamarlo desde una forma que tenga un
TDateTimePicke, un
TDBGrid, un
TQuery, un
TDataSource y un
TButton haces esto:
Código Delphi
[-]
procedure TmyForm.Button1Click(Sender: TObject);
begin
DateSearch(DateTimePicker1.Date, Query1)
end;
Saludos...