Как поставить свой формат в TDateTimePicker?

uses CommCtrl;
 
  const fmt: PChar = 'hh:mm';
 
  SendMessage(DateTimePicker1.Handle, DTM_SETFORMAT, 0, LongInt(fmt));