Сравнение двух дат

CompareDate(Date(), ADOQuery2->FieldByName("Data")->AsDateTime

    ADOQuery2->Close();
    ADOQuery2->SQL->Clear();
    ADOQuery2->SQL->Text = "SELECT Nmesta FROM stoyanka";
    ADOQuery2->Open();
    ADOQuery2->First();
    while (!ADOQuery2->Eof)
    {
        int index = ComboBox1->Items->IndexOf(ADOQuery2->FieldByName("Nmesta")->AsString);
        if (index > -1)
        {
            ComboBox1->Items->Delete(index);
        }
        ADOQuery2->Next();
    }
 
 
    ADOQuery2->Close();
    ADOQuery2->SQL->Clear();
    ADOQuery2->SQL->Text = "SELECT * FROM stoyanka";
    ADOQuery2->Open();
    ADOQuery2->First();
    while (!ADOQuery2->Eof)
    {
       if((CompareTime(Time(), ADOQuery2->FieldByName("Vremya_vyezda")->AsDateTime) *
           CompareTime(Time(), ADOQuery2->FieldByName("Vremya_vuyezda")->AsDateTime) > 0))
        {
            ComboBox1->Items->Add(ADOQuery2->FieldByName("Nmesta")->AsString);
        }
        ADOQuery2->Next();
    }
 
 
        ADOQuery2->Close();
    ADOQuery2->SQL->Clear();
    ADOQuery2->SQL->Text = "SELECT * FROM stoyanka";
    ADOQuery2->Open();
    ADOQuery2->First();
    while (!ADOQuery2->Eof)
    {
       if  (Dateutils::CompareDate(Date(), ADOQuery2->FieldByName("Data")->AsDateTime))
          {
            ComboBox1->Items->Add(ADOQuery2->FieldByName("Nmesta")->AsString);
        }
        ADOQuery2->Next();

  TDateTime myDate = EncodeDateTime(2000, 12, 31, 23, 0, 0, 0);
  ShowMessage("myDate = " + DateTimeToStr(myDate));
 
  myDate = IncMinute(myDate, -100);
  ShowMessage("myDate - 100 minutes = " + DateTimeToStr(myDate));