{ É necessário declarar SysUtils.
Em versões mais recentes declare System.SysUtils. }
 
// Função : FormatDateTime( Formato, Data )
// Retorno: String
 
// Exemplo
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Data Normal
  ShowMessage(  FormatDateTime('dd.mm.yyyy', Date ));
 
  // Data por extenso
  ShowMessage(  FormatDateTime('dddd'', ''mm'' de ''mmmm'' de ''yyyy', Date ));
end;