날짜 정보를 처리할때는 문자열로 입력하는것보다는
아래와 같이 TQuery의 Params를 이용하면 편리합니다.

    DM->Query1->SQL->Clear();
    DM->Query1->SQL->Add("SELECT * FROM " + DB_ERROR + " Err");
    DM->Query1->SQL->Add("LEFT OUTER JOIN " + DB_ERROR_CODE + " ErrCode");
    DM->Query1->SQL->Add("On (Err.Code = ErrCode.Code)");
    DM->Query1->SQL->Add("WHERE Cast(ErrorDateTime As Date) >= :Date");
    DM->Query1->SQL->Add("ORDER BY Err.ErrorDateTime DESC");

    // 위에서 :Date로 표시된 파라메타위치에 데이터 입력
    DM->Query1->Params->ParamByName("Date")->AsDate = Date()-7;

    DM->Query1->Open();