en delphi 7 creo que podes poner el componente TCalendar de la paleta samples y al hacer doble click sobre el dia podes hacer la consulta para ese día.
Código Delphi
[-]
procedure TForm1.Calendar1DblClick(Sender: TObject);
var
nDate: TDate;
begin
nDate := (Sender as TCalendar).CalendarDate;
...
Aca pones la consulta.
end;