Convert DateTime () > TFormatSettings ()

[XerSon]

Всем привет,
Юзая WinInet получаю дату изменения файла на сервере:

Result := GetQueryResult(url, AgentB, HTTP_QUERY_LAST_MODIFIED);

возвращает результат в формате:

Thu, 31 Aug 2017 15:04:03 GMT

Как мне конвертировать данный результ в удобочитаемый вид, используя TFormatSettings и получить следующий вид даты и времени:

2017-08-31 15:04:03

[Аватар]

Убрать начало и конец, месяц заменить на его номер, вместо пробела в дате какой-то разделитель. И получить чего-то типа '31/08/2017 15:04:03' Манипуляции с форматами ddd, mmm и пробелом в качестве разделителя в дате ни к чему путевому не привели ((

  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT,xFormatSettings);
  xFormatSettings.ShortDateFormat:='dd/mm/yyyy';
  xFormatSettings.DateSeparator:='/';
  xFormatSettings.LongTimeFormat:='hh:nn:ss';
  xFormatSettings.TimeSeparator:=':';
  Edit1.Text:=FormatDateTime('yyyy-mm-dd hh:nn:ss',StrToDateTime('31/08/2017 15:04:03', xFormatSettings));

[XerSon]

Спасибо за пример, но нашел рабочий код, не совсем то но будем реализовывать под себя.
http://www.kansoftware.ru/?tid=5080

[XerSon]

И после вызова функции:

var
  mDate: String;
begin
mDate := DateTimeToStr(RfcTimeToDateTime((mDate), False));
end

сделал так:

var
  InFrmSet, OutFrmSet: TFormatSettings;
begin
  { ______________________Конвертируем Формат Даты и времени________________ }
  { _____________________________31.08.2017 15:04:03________________________ }
  InFrmSet.ShortDateFormat := 'dd.mm.yyyy';
  InFrmSet.DateSeparator := '.';
  InFrmSet.LongTimeFormat := 'hh:nn:ss';
  InFrmSet.TimeSeparator := ':';
  { _____________________________2017-08-31 15:04:03________________________ }
  OutFrmSet.ShortDateFormat := 'yyyy-mm-dd';
  OutFrmSet.DateSeparator := '-';
  OutFrmSet.LongTimeFormat := 'hh:nn:ss';
  OutFrmSet.TimeSeparator := ':';

  mDate := DateTimeToStr(StrToDateTime(mDate, InFrmSet), outFrmSet);
end