Word Year, Month, Day;
DecodeDate(Date(), Year, Month, Day);
Day = 1;
Month = 1;
TDate YearBeg = EncodeDate(Year, Month, Day);
как занести в DateTimePicker1->Date начало текущего года
как оптимально занести в DateTimePicker1->Date начало текущего года, т.е. чтобы там было 01.01.2007