var
  FHandle: Integer;
  ftCT: FILETIME;
begin
.
.
.
    LastModifyDate := '20080609172500';

    ftCT := DateTimeToFileTime(StrToDateTime(Copy(LastModifyDate, 1, 4) + DateSeparator
       + Copy(LastModifyDate, 5, 2) + DateSeparator + Copy(LastModifyDate, 7, 2)
       + ' ' + Copy(LastModifyDate, 9, 2) + ':' + Copy(LastModifyDate, 11, 2)
       + ':' + Copy(LastModifyDate, 13, 2)));

      FHandle := FileOpen(sClientFileName, fmOpenWrite);
      if FHandle < 0 then
      begin
        Result.Result := -1;
        Result.Message := sClientFileName + ' 파일을 열지 못했습니다.';
        exit;
      end
      else
        if not SetFileTime(FHandle, @ftCT, @ftCT, @ftCT) then
        begin
          Result.Result := -1;
          Result.Message := '파일일시 변경이 실패하였습니다.';
          exit;
        end;
end;

뭐 이렇게 돌리는데요 돌아가기는 하는데 오전 11:30 이 오후 8:30 으로 나옵니다. 9시간 차이나는거죠;
원인을 아시는분 답변 부탁드립니다. ^^;