uses Sysconst;    procedure TForm1.Button4Click(Sender: TObject);
Const
  DefShortMonthNames: array[1..12] of String = (SShortMonthNameJan,
    SShortMonthNameFeb, SShortMonthNameMar, SShortMonthNameApr,
    SShortMonthNameMay, SShortMonthNameJun, SShortMonthNameJul,
    SShortMonthNameAug, SShortMonthNameSep, SShortMonthNameOct,
    SShortMonthNameNov, SShortMonthNameDec);
var
  Year, Month, Day: Word;
  ADate : Tdate;
begin
  ADate := Now;
  DecodeDate(ADate, Year, Month, Day);
  Showmessage(Formatdatetime('yyyy/mmm/dd',ADate));
  Showmessage(Format('%D/%S/%D',[Year,DefShortMonthNames[Month],Day]));
end;