在你的窗体中加入Datetimepicker组件，并使用"Commctrl"单元。

然后试一试下面的程序：

procedure TForm1.Button2Click(Sender: TObject);
Var
DFormat : String;
begin
DFormat := ''dd-MM-yyyy''; //小心: "MM"是大写字母
DateTimePicker1.Perform ( DTM_SETFORMAT , DWORD(NIL) , DWORD(DFormat) );

{
//试一试以下这些格式:
DFormat := ''dd-MMM-yyyy'';
DFormat := ''dd-MMMM-yyyy'';
DFormat := ''dd-MMMM-yyyy'';
DFormat := ''HH:mm'';
DFormat := ''hh:mm tt'';
DFormat := ''dd-MMM-yyyy'';
DFormat := ''dd-MM-yyyy HH:mm'';
}
end;