在你的窗體中加入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;