Source position: datepickerdialog.pas line 12
type TOnDatePicker = procedure(
Sender: TObject;
year: Integer;
monthOfYear: Integer;
dayOfMonth: Integer
) of object;