Добавить к текущей дате один месяц

 Edit2->Text=(FormatDateTime("mm.yyyy.", Now()+ 31));

    unsigned short de,me,go ;
    TDateTime tm = Now();
    DecodeDate(tm,go,me,de);
    tm = EncodeDate(go,(me+1)%12,de); 
    Edit1->Text=(FormatDateTime("dd.mm.yyyy.", tm));

Date D;
Date S;
D = правильный формат даты для проверки "dd.mm.yyyy"
Edit2->Text (переводим в дату и записываем в переменную S);
if (S FormatDate == D FormatDate) // Если формат даты введен правильно
  ShowMessage ("Формат даты введен правильно!");

try {
     StrToDate(Edit1->Text); // то, что ввел юзер
} catch (...) {
ShowMessage("Неверный формат");
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    try {
        StrToDate(Edit10->Text);
    }
    catch (...) {
        ShowMessage("Неверный формат");
    }
}
}

void __fastcall TForm2::Button3Click(TObject *Sender) {
    DateSeparator = '-';
    ShortDateFormat = "dd-mm-yyyy";
 
    try {
        StrToDate(Edit10->Text);
    }
    catch (...) {
        ShowMessage("Неверный формат");
    }
}