Как программно узнать дату на своём компе?

if(reg -> KeyExists("DataReg") == true)
 {
   
   reg->RootKey = HKEY_CURRENT_USER;
   reg->OpenKey("Software",true);
   reg->OpenKeyReadOnly("DataReg");
 
   if (today == date + 1)
{

     reg->DeleteValue("DataReg");

if(reg -> KeyExists("DataReg") == 1)

date + 3

if(KeyExsists("DataReg") == true)

void __fastcall TFormMain::LogRun(void)
{
// Запись в реестр значения, при значении которого 1
// действие должно выполняться только один раз - 
// при первом запуске программы
  TRegistry * regLR;
  regLR = new TRegistry; // Создаем новый ключ
  int D1;
  int D2;
  int D3;
  regLR->RootKey = HKEY_CURRENT_USER; // Главная ветка
  AnsiString KeyLogRun = "\\Software\\CoolProg\\Setting\\Common"; // Ветка программі
  regLR->OpenKey(KeyLogRun, true);
  if (regLR->ValueExists("10001") == 1) {
    int D1 = regLR->ReadInteger ("10001");
    regLR->WriteInteger ("10001", D1+1);
    int D2 = regLR->ReadInteger ("10001");
    Application->MessageBox("Количество запусков "
                            + IntToStr(D2)).c_str(),
                            "CoolProg",
                            MB_OK+MB_ICONINFORMATION);
  }
  else {
    regLR->WriteInteger ("10001", 1);
    int D3 = regLR->ReadInteger ("10001");
    Application->MessageBox(("Зарегистрировано.\n"
                            + "Параметр лицензии."
                            + IntToStr(D3)).c_str(),
                            "CoolProg",
                            MB_OK + MB_ICONINFORMATION);
  }
  delete regLR;
}

date + 3

TDateTime date, today;
date = date.CurrentDate();
today = Date();
TRegistry *reg = new TRegistry(); //Создали обьект класса TRegistry
reg->RootKey = HKEY_CURRENT_USER; //Теперь мы будем работать с разделом HKEY_LOCAL_MACHINE (все записи ключей, удаление, перемещение будут происходить в этом разделе)
reg->OpenKey("Software",true); //Мы создали ключ, если же такой ключ уже существовал, то он был бы открыт для записи
if(reg->KeyExists("DataReg") == 1)
 {
   ShowMessage("Урааааа!");
   // Читаем и проверяем
   reg->RootKey = HKEY_CURRENT_USER; //Теперь мы будем работать с разделом HKEY_LOCAL_MACHINE (все записи ключей, удаление, перемещение будут происходить в этом разделе)
   reg->OpenKey("Software",true);
   reg->OpenKeyReadOnly("DataReg");
 
   if (today == date + 1)
{
    Form2->ShowModal();
    //открыли окно регистрации
    if(Form2->ShowModal()==mrOk)
    {
    ShowMessage("Пароль введён верно! Запишите его куда нибудь. Его надо вводить через каждые 3 дня!");
    reg->RootKey=HKEY_CURRENT_USER;  //Как и при записи указываем раздел с которым будем работать
    reg->OpenKey("Software",false);   //Октрываем ключ, над которым будем работать
    reg->DeleteValue("DataReg");     //Удаляем параметр
    reg->CloseKey();   //Закрываем ключ
    delete reg;       //Освобождаем память
    }
    if(Form2->ShowModal()==mrCancel)
    Close();
    }
}
 else
  {
     ShowMessage("Проверка не выполнена");
      reg -> WriteString("DataReg",date.DateString()); // Создаем метку
  }
reg->CloseKey();   //Закрываем ключ
delete reg;       //Освобождаем память
//Можно открыть реестр и полюбоваться на проделанную работу.

today = date +1

today = date +1

today == date +1

today = date +1

if (Label1->Caption=="777") { // Label1 здесь играет роль переменной
    Label1->Caption=DateToStr(Now()+30); // здесь можете поставить +3 (з дня)
     
    AnsiString str3;
    str3 = Label1->Caption;
    // Сохраняем Дату истечения лицензии в реестре
    TRegistry *reg3 = new TRegistry();
    reg3->RootKey=HKEY_CURRENT_USER;
    reg3->OpenKey("Software\\Soft\\Klod",true);
    reg3->WriteString("Caption",str4);
    reg3->CloseKey();
    reg3 = NULL;
    delete reg3;

TDate date1, date2; // переменные для вычисления остатка дней лицензии
    // Проверяем и вводим ограничения если лицензия закончилась
    TDate A = DateToStr(Now()); // текущая дата
    TDate B = StrToDate(Label1->Caption);
    signed char Result = CompareDate(A, B);
    switch (Result) {
 
  case -1:    
 
    break;
 
  case 0:
 
    break;
 
  case 1:
 
           break;}

date1 = DateToStr(Now());
date2 = StrToDate(Label1->Caption);
Label2->Caption = (FloatToStr(DaysBetween(date1, date2)));
// и наконец проверяем сколько дней прошло
if (Label2->Caption == (3)){ShowMessage("Гитлер капут");}