TDateTime Start=Now();  // 取得開始時間
  //do something
  TDateTime End=Now();    // 取得結束時間
  TDateTime Diff=End-Start;
  ShowMessage(Diff.FormatString("yyyymmdd-hhnnss"));