时间有关问题

时间问题
我想输出文本   顺便加上当前时间   输出格式为May   04,   2006   at   08:59:07，请问怎样实现

[解决办法]
uses SysConst;

const
DefShortMonthNames: array[1..12] of string = (SShortMonthNameJan,
SShortMonthNameFeb, SShortMonthNameMar, SShortMonthNameApr,
SShortMonthNameMay, SShortMonthNameJun, SShortMonthNameJul,
SShortMonthNameAug, SShortMonthNameSep, SShortMonthNameOct,
SShortMonthNameNov, SShortMonthNameDec);

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
vOldShortMonthNames: array[1..12] of string;
begin
for I := 1 to 12 do // 替换月份名称，如果是英文操作系统就不用了
begin
vOldShortMonthNames[I] := ShortMonthNames[I];
ShortMonthNames[I] := DefShortMonthNames[I];
end;
Caption := FormatDateTime( 'mmm dd ", "yyyy " at "hh ": "nn ": "ss ', Now);
for I := 1 to 12 do // 还原
ShortMonthNames[I] := vOldShortMonthNames[I];
end;