Format DateTime

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;