Планировщик

[Bugs]

Здравствуйте программисты, подскажите как реализовать такую штуку.

Хочу отправлять файлы на сервер раз в сутки допустим в 2 часа ночи .

Проблема в том что сутки не сдвигаются после 12 часов ночи.

Колдовство не приводит к результату

Код

OnTimer
 
TDate A = Now().CurrentTime(); // текущая дата
TDate B = DateTimePicker1->Time; 
signed char Result = CompareTime(A,B);
switch (Result) {
  case -1:
  Form1->Alab->Caption= "A ;
      break;
  case 0:
               Form1->Alab->Caption= "A = B";
 break;
  case 1:
               Form1->Alab->Caption= "A > B";
      break;
default:
  break;
}
 
 
ClockTime = StrToDateTime(DateToStr(Date())+" "+TimeToStr(Settings->DateTimePicker1->Time +Time()));
 
LTSending->Caption = FormatDateTime("hh:mm:ss",ClockTime);
 

Должно получиться так,  установил время на 2 ночи , и в лейбле пишет осталось мол 16 часов.

Поможите

[POV]

Код

bool      Sended = false; // global
 
// ontimer, interval 5 minutes
        TTime t1 = Time();
    TTime t2 = RecodeTime(t1, 2, 0, 0, 0);
 
        if (t1 >= t2  &&  MinuteOf(t1 - t2)  5) 
       {
               if (!Sended)
          { 
                      ...
                       Sended = true;
                }
       }
       else
 {
               Sended = false;
    }

[POV]

А где в моем примере Декоде?

[Bugs]

Не работает всё равно ! 

bool Sended = false; // global

// ontimer, interval 5 minutes
   TTime t1 = Time();
   Label2->Caption = t1;

TTime t2 = EncodeTime(14,41, 0, 0);
SendTime->Caption = t2;

RemainedTime= t1-t2;

   if (t1 >= t2  &&  MinuteOf(t1 - t2)    {

      if (!Sended)
      {
       Label5->Caption = "Самое время " ;
         Sended = true;
      }
   }
   else
   {
      Sended = false;
       Label5->Caption = "рано " ;
   }
 SendOut->Caption = FormatDateTime("hh:mm:ss",RemainedTime);



Если я поставлю в DateTimePicker->Time  в 02:00 Ночи , мне нужно к существующему времени прибавить число часов ? или Как ?