Delphi 日期格式转换

procedure TForm1.Button1Click(Sender: TObject);
var
  sTime: TDateTime;
  s1: String;
  aDateTimeFormat: TFormatSettings;
begin
  //设定转换格式  DateSeparator
  aDateTimeFormat.DateSeparator := '-';
  aDateTimeFormat.ShortDateFormat := 'yyyy-mm-dd';
  aDateTimeFormat.TimeSeparator := ':';
  aDateTimeFormat.ShortTimeFormat := 'hh:mm:ss';


  s1 := '2017-02-21 11:44:36';
  sTime := StrToDateTime(s1, aDateTimeFormat)  ;
  ShowMessage(FormatDateTime('yyyy-mm-dd hh:nn:ss',sTime));
end;