Puedes probar con lo siguiente de igual manera
Código Delphi
[-]procedure TForm1.MonthCalendar1DblClick(Sender: TObject);
begin
table1.filter:='Where fecha=' + QuotedStr('#' + MonthCalendar1.date + '#');
table1.filtered:=true;
end;
No recuerdo si delphi 7 tiene este objeto Monthcalendar, pero como te dijeron hace un momento sustituyes el objeto por este y colocas lo siguiente
Código Delphi
[-]
table1.filter:='Where fecha=' + QuotedStr('#' +
Calendar1.CalendarDate
+ '#');
table1.filtered:=true;