AnsiString DAY;
DAY = AnsiString(GBuf.Date 4,2) "/" AnsiString(GBuf.Date 2,2) "/" AnsiString(GBuf.Date,2) " ";
DAY  = AnsiString(GBuf.Time,2) ":" AnsiString(GBuf.Time 2,2) ":" AnsiString(GBuf.Time 4,2);
ShowMessage(DateTimeToStr(StrToDateTime(DAY 8)));

#include 
//=============================
  TDateTime GMTime,TPETime;
  GMTime = EncodeDateTime(2004,11,16,21,30,0,0);//設定GMTime
  TPETime = IncHour(GMTime,8);