Exibir data atual

procedure TForm2.FormCreate(Sender: TObject);
begin
  ShowMessage(FormatDateTime('dd/mm/yyyy hh:mm:ss', now));
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  ShowMessage(DateToStr(Date));
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  ShowMessage(DateToStr(Date));
end;