procedure TFormAgenda.FormCreate(Sender: TObject); begin ADOQueryAgenda.Filter:='FECHA ='+DateTimeToStr(MonthCalendar1.Date); ADOQueryAgenda.Filtered:=TRUE; end;