Aprenda a usar a variável global ShortDateFormat para controlar a formatação de datas

----------------------------------------------------------------------
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 
----------------------------------------------------------------------

   y  = Ano com 2 dígitos 
  yy  = Ano com 2 dígitos 
yyyy  = Ano com 4 dígitos 
   m  = Número do mês do ano sem o 0 no início 
  mm  = Número do mês com 2 dígitos 
 mmm  = Mês usando nomes curtos (Jan) 
mmmm  = Mês usando nomes longos  (Janeiro) 
   d  = Número do dia sem o 0 no início 
  dd  = Número do dia com dois dígitos 
 ddd  = Dia usando nomes curtos (Dom) 
dddd  = Dia usando nomes longos  (Domingo) 

----------------------------------------------------------------------
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 construir a data
  data := StrToDate('13/03/2009');

  // vamos exibir usando a formatação padrão de ShortDateFormat
  showMessage(DateToStr(data));

  // vamos alterar o padrão de formatação de ShortDateFormat
  ShortDateFormat := 'dd ''de'' mmmm ''de'' yyyy';

  // experimente também
  // ShortDateFormat := 'dd/mm/yyyy';

  // vamos exibir usando a nova formatação
  ShowMessage(DateToStr(data));
end;