Obtendo a data atual (sem as horas)

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  data: TDateTime;
begin
  // vamos obter a data atual
  data := Date();

  // podemos também usar a função Today()
  //data := Today();

  // vamos exibir o resultado
  ShowMessage(DateTimeToStr(data));
end;