Drop a TDateTimePicker component on your Form. Now add CommCtrl to the uses clause of your unit. Place the following code in the FormCreate event:
procedure TForm1.FormCreate(Sender: TObject);
begin
DateTime_SetFormat(DateTimePicker1.Handle,
'hh:mm tt');
end;
Last Modified: 02-JAN-02