Data - dia da semana e nome do mes FormatDateTime

var

   I:Integer;

begin

     For I:=1 to 7 do ListBox1.Items.Add(LongDayNames[I]);

     For I:=1 to 7 do ListBox2.Items.Add(ShortDayNames[I]);

     For I:=1 to 12 do ListBox3.Items.Add(LongMonthNames[I]);

     For I:=1 to 12 do ListBox4.Items.Add(ShortMonthNames[I]);

end;

Para mais: HELP - Topic - "Formatting Variables"

------------ OTHER ------------

FormatDateTime( Formato, Now ):  (09-05-2002 08:45:50)

Formato      Retorna

-------      ---------------------------

      d      9  --- remove zero 

     dd      09

    ddd      qui

   dddd      quinta-feira

      c      09/05/2002 08:44:26

      m      5  --- remove zero 

     mm      05      

    mmm      mai

   mmmm      maio

     yy      02

   yyyy      2002

      h      8  --- remove zero 

     hh      08

      n      45 --- remove zero 

     nn      45

      s      50 --- remove zero 

     ss      50

      z      1  --- remove zero  (milisec)

    zzz      001

      t      08:45

     tt      08:45:50

  am/pm      mostra am para antes meio dia, pm após

    a/p      mostra a  para antes meio dia, p  após

  "x"dd      x09 (os caracteres entre "" sao literais)