Показать текущую дату в label — Delphi(Делфи)

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:=DateToStr(Date);
end;
code: #delphi
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:=DateToStr(Now);
end; 
code: #delphi
TForm1.FormShow (Sender:TObject)
begin
    Label1.Caption = DateToStr(Date());
end;

Label1.Caption := FormatDateTime('dd/mm/yyyy', Now);