首先想到的是TDateTimePicker控件有没有属性来实现这一功能的转换，因为这样做的好处不言而知。在我看了TDateTimePicker、
TCommonCalendar这两个类的源码后得出了结论，不能用控件的属性或过程来实现这一转换。
 于是只好改变思路：
 我们知道，在Windows下可以修改时间的显示方式，具体方法如下:
 “控制面板”->“区域选项”（WINXP则是“日期与时间的显示方式”）->“时
 间”。在“时间格式”一栏中可以修改时间的显示格式，具的显示格式可在在“外观
 示例”中可以看到。
 现在可以知道“H:mm:ss”显示的是24小时制，而“tt h:mm:ss”显示的则是12小时
 制。
 我们把“时间格式”设置为“tt h:mm:ss”后再点击“确定”按钮退出。
 现在再来在窗体上放一个TDateTimePicker控件，OK，达到的预期的效果。
刚准备舒一口气，又转念一想，程序到了别人的电脑那不是又不行了？？
看来，还得继续工作。
我们知道Windows的系统设置一般都保存在注册表中。现在的关键是找到时间显示格式所保存的注册表主键。
想一下，用的注册表搜索功能。
 我现在的系统时间是12小时制，它的显示格式是“tt h:mm:ss”。好，就来搜索这个
 吧。终于找到了第一个，仔细思量一下，应该是的：主键是：
 HKEY_CURRENT_USER\Control Panel\International
 而其中的sTimeFormat键值名就是时间格式。
 但是，里边还有那么多的键值，要修改哪些呢？又是一个问题。
 想了一下，行，就用这个办法：
 1、导出主键
 2、在控制面板中把系统时间改为24小时制
 3、再导出主键
 4、运行两个记事体实例，分别打开刚才导出的主键（扩展名为.reg）
 5、比较，删除键值名和数据都相同的行
 现在出来了结果：
 12小时制和24小时制有三个键值的数据不同
 键值名 12小时制的值 24小时制的值
  iTime 0  1
iTimePrefix  1 0
 sTimeFormat H:mm:ss  tt h:mm:ss
 现在余下的问题就是如何编程序来实现了。
 Delphi对注册表的操作一般都是用TRegistry类来实现，具体的操作请参考相关资料。
 现在贴出其源码：

unit SetTimeSotryUnit;
interface
uses
 Windows, Registry;
Type
 Time_Story = (ts_12, {12 小时制}
 ts_24 {24 小时制}
  );
procedure SetTimeStory(const Story: Time_Story);
function GetTimeStory: Time_Story;
implementation
{ ---------------------------------------------------------------------------
//
// 把系统时间的显示方式设置为指定类型
//
// 参数 :
// Story : 指定类型
//
 --------------------------------------------------------------------------}
procedure SetTimeStory(const Story: Time_Story);
var
 Reg: TRegistry;
begin
 Reg := TRegistry.Create;
 {设置根主键为 HKEY_CURRENT_USER}
 Reg.RootKey := HKEY_CURRENT_USER;
 {打开主键 \Control Panel\International}
 Reg.OpenKey(\Control Panel\International, False);
 Try {写入数据}
 Case Story of
 ts_12: {12 小时制}
 begin
 Reg.WriteString(iTime, 0);
 Reg.WriteString(iTimePrefix, 1);
 Reg.WriteString(sTimeFormat, tt h:mm:ss);
 end;
 ts_24: {24 小时制}
 begin
 Reg.WriteString(iTime, 1);
 Reg.WriteString(iTimePrefix, 0);
 Reg.WriteString(sTimeFormat, H:mm:ss);
 end;
 end;
 Finally;
 Reg.CloseKey; {关闭主键}
 Reg.Free;
 end;
end;
{ ------------------------------------------------------------------------
//
// 返回当前系统时间的显示方式
//
// 返回值 :
// 默认的返回为 24 小时制
//
 -----------------------------------------------------------------------}
function GetTimeStory: Time_Story;
var
 Reg: TRegistry;
begin
 Result := ts_24;
 Reg := TRegistry.Create;
 Reg.RootKey := HKEY_CURRENT_USER;
 Reg.OpenKey(\Control Panel\International, False);
 Try
 if Reg.ReadString(sTimeFormat) = tt h:mm:ss then
 Result := ts_12
 else
 Result := ts_24;
 Finally;
 Reg.CloseKey;
 Reg.Free;
 end;
end;
end.


以上的实现功能的转换，而我们要在TDateTimePicker创建之前就要设置好系统时间格式。
所以还要修改.dpr的文件，如下：

program Project1;
uses
 Forms,
 SetTimeSotryUnit in SetTimeSotryUnit.pas {Form1};
{$R *.res}
begin
 Application.Initialize;
 if GetTimeStory = ts_12 then {如果为 12 小时制则显示为 24 小时制}
 SetTimeStory(ts_24)
 else {//如果为 24 小时制则显示为 12 小时制}
 SetTimeStory(ts_12);
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.


至此全部完成....