vincular calendario con bd

[adeszeus]

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;