{
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:
} 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := 'Today is  ' + DateToStr(Date);
end; 
