Source position: LSCalendarPopup.pas line 26
type TLSCalendarPopupCloseEvent = procedure(
ASender: TObject;
const ADateTime: TDateTime
) of object;