既然Delphi没有提供如此功能，但Delphi提供了调用WindowsAPI的接口。所以我们可以调用WindowsAPI函数来实现这一功能。具体方法如下：
procedure TForm1．Button1Click（Sender：TObject）；
begin
Edit1．Text：=＇97／10／3010：09：59＇；
／／注意：控制面板内时间格式要为YY／MM／DDend；
end;
procedure TForm1．Button2Click（Sender：TObject）；
var
systemtime：Tsystemtime；
DateTime：TDateTime；
begin
DateTime：=StrToDateTime（Edit1．text）；
DateTimeToSystemTime（DateTime，systemtime）；
SetLocalTime（SystemTime）；
GetLocalTime（SystemTime）；／／读取北京东8区时间
DateTime：=SystemTimeToDateTime（SystemTime）；
Edit2．Text：=DateTimeToStr（DateTime）；
end；
另外，还有好多其它的Delphi函数和API函数供我们使用，如：
StrToDate、StrToTime、DateTimeToStr、StrToDateTime、DateTimeToSystemTime、
SystemTimeToDateTime、DateTimeToTimeStamp、TimeStampToDateTimeCompareFileTime、
DosDateTimeToFileTime、FileTimeToDosDateTime、FileTimeToLocalFileTime、
FileTimeToSystemTime、GetFileTime、SetFileTime、GetSystemTime（格林威治时间）、
SetSystemTimeGetSystemTimeAdjustment，SetSystemTimdAdjustment。
具体我们可以查Delphi所带的Win32．HLP（WindowsAPI帮助文件），它在Delphi2．0\Help或Delphi3\Help目录下。