Filtrar al inicio

[PiPerraK]

Perdón, me equivoqué, el código es:

  procedure TFormAgenda.FormCreate(Sender: TObject);
begin

		ADOQueryAgenda.Filter:='FECHA ='+DateTimeToStr(MonthCalendar1.Date);
		ADOQueryAgenda.Filtered:=TRUE;

end;

Gracias de nuevo!