用 NMDayTime1: TNMDayTime;控件
procedure TForm1.Button1Click(Sender: TObject);
var
a : TSYSTEMTIME;
T:TDateTime;
TimeStr:String;
begin
Label1.Caption := NMDayTime1.DayTimeStr;
TimeStr := copy(Label1.Caption,7,18);
label1.caption := '标准格林威治:'+TimeStr;
update();
T:=(StrToDateTime(TimeStr));
DateTimeToSystemTime(t,a);
SetSystemTime(a);
GetLocalTime(a);
T:=SystemTimeToDateTime(a);
Label2.Caption := '标准北京时间 :'+DateTimeToStr(t);
end;