Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как удалить сегодняшнюю дату из TDateTimePicker?

01.01.2007
uses
 
CommCtrl;
 
procedure TForm1
.DateTimePicker1DropDown(Sender: TObject);
var
  wnd
: HWND;
 
Style: Integer;
begin
  wnd
:= DateTime_GetMonthCal(DateTimePicker1.Handle);
 
if wnd <> 0 then
 
begin
   
Style := GetWindowLong(wnd, GWL_STYLE);
   
SetWindowLong(wnd, GWL_STYLE, Style or MCS_NOTODAY or MCS_NOTODAYCIRCLE);
 
end;
end;
 
{
 
The calendar will still highlite the current day but the circle and the
  today display at the bottom are gone
.
}

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php