Вычитание TDateTime

    TDateTime *dt1=new TDateTime(), *dt2=new TDateTime(), *dt3=new TDateTime();
    *dt1=Now();   //Узнаю время и дату
    Sleep(10000);
    *dt2=Now();   //Узнаю время и дату через 10 секунд
    *dt3=*dt2-*dt1;   //Узнаю сколько времени прошло
    Label1->Caption=(YearOf(*dt3));  //Вывожу сколько лет прошло
    Label2->Caption=(MonthOf(*dt3));  //Вывожу сколько месяцев прошло
    Label3->Caption=(DayOf(*dt3));   //Вывожу сколько дней прошло и т.д.
    Label4->Caption=(HourOf(*dt3));
    Label5->Caption=(MinuteOf(*dt3));
    Label6->Caption=(SecondOf(*dt3));

        TDateTime *dt1=new TDateTime(), *dt2=new TDateTime();
        *dt1=Now();   //Узнаю время и дату
        Sleep(10000);
        *dt2=Now();   //Узнаю время и дату через 10 секунд
 
        Label1->Caption=(YearsBetween(*dt1, *dt2));
        Label2->Caption=(MonthsBetween(*dt1, *dt2));
        Label3->Caption=(DaysBetween(*dt1, *dt2));
        Label4->Caption=(HoursBetween(*dt1, *dt2));
        Label5->Caption=(MinutesBetween(*dt1, *dt2));
        Label6->Caption=(SecondsBetween(*dt1, *dt2));

AnsiString GetDate(int);
 
WorkFrom                 ="10:00:00"; 
 
if(  ( (GetDate(1)!=WorkFrom) )  )
   {
         //to do...
   }
 
 
 
////////// GetDate
AnsiString GetDate(int DateParam)
{
  String DateTime;
 
 if (DateParam==0)
   {
     DateTime= DateToStr(Now());
   }
 
 if (DateParam==1)
   {
     DateTime= TimeToStr(Now());
   }
 
 if (DateParam==2)
   {
     DateTime= DateTimeToStr(Now());
   }
 
 return DateTime;
}

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TDateTime DateTimeFirst;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Label1->Caption=DateTimeToStr(Now());
DateTimeFirst=DateTimeToStr(Now());
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
String date= DateTimeToStr(Now());
Label2->Caption=DateTimeFirst-date;
}