コンピュータのシステム時刻を設定します。

関数SetSytemTime（aNewTime：たTDateTime）：ブール;
VAR
  Y、M、D、H、N、S、MS：;ワード
  aSystemTime：TSystemTime;
始める
  試みる
    DecodeDateTime（aNewTime、Y、M、D、H、N、S、MS ）; //分、秒、ミリ秒日まで分解時間とき
    aSystemTimeでは// TSystemTimeが書き込ま箇条書き行い
    始める
      wYear：Y =;
      wMonth：= M;
      WDAY：= D;
      wHour：= H;
      wMinute：= N;
      wSecond：= S;
      wMilliseconds：MSを=;
      wDayOfWeek：=のDayOfWeek（aNewTime）; //計算週の
    終わり;
    SetLocalTime（aSystemTime）; //システムの現地時刻を設定
    結果：=真;
  除く
    結果：= Falseの;
  END;
エンド;