/*
This example uses a label and a button on a form. When the
user clicks the button, the current date displays in the
caption of the label. Because some of the date variables are
assigned new values, the format of the date in the label
changes. For example, if the date is 9/15/94, the date
displays as 9-15-1994.
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  DateSeparator = '-';
  ShortDateFormat = "m/d/yyyy";
  Label1->Caption = DateToStr(Date());
}

{
This example uses a label and a button on a form. When the 
user clicks the button, the current date displays in the 
caption of the label. Because some of the date variables are 
assigned new values, the format of the date in the label 
changes. For example, if the date is 9/15/94, the date 
displays as 9-15-1994.
} 
procedure TForm1.Button1Click(Sender: TObject);
begin
  DateSeparator := '-';
  ShortDateFormat := 'm/d/yyyy';
  Label1.Caption := DateToStr(Date);
end;