3-13-2002 12:32:14 的格式怎样转换成 2002-3-13 12:32:14 的格式？(50分)

如题

uses SysUtils

var
D: TDateTime;
S, TMP: string;
begin
TMP := ShortDateFormat;
ShortDateFormat := 'm-dd-yyyy';
D := StrToDateTime('3-13-2002 12:32:14');
ShortDateFormat := TMP;
S := FormatDateTime('yyyy-m-dd hh:nn:ss', D);

接受答案了.