/*
Date, DateToStr example
This example uses a label and a button on a form. When the user clicks the button, the current date is displayed in the caption of the label:
*/ 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Label1->Caption = DateToStr(Date());
} 
