Odczyt bieżącej daty

Aby po kliknięciu przycisku Button1 na etykiecie Label1 wyświetlić bieżącą datę wywołujemy funkcję DateToStr(), a jako jej argument podajemy funkcję Date(). Funkcja Date() zwraca datę jako obiekt TDateTime, który jest zamieniany na łańcuch AnsiString przez funkcję DateToStr():

Unit1.cpp
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Caption = DateToStr(Date());
}