function RfcTimeToDateTime(const dt_str: string; var onErr: string; blnGMT: boolean = false): TDateTime;
{*
Explanation:
if blnGMT then Result is UNC time else local time
e.g. local time zone: ET = GMT - 5hr = -0500
   strTime = 'Wed, 03 Jan 2001 05:45:00 -0500'
     blnGMT = true  -> FormatDateTime('...', Result) = '03.01.2001 10:45:00'
     blnGMT = false -> FormatDateTime('...', Result) = '03.01.2001 05:45:00'
*}
const
  wd = 'sun#mon#tue#wed#thu#fri#sat';
  Month = 'janfebmaraprmayjunjulaugsepoctnovdec';
var
  s, strTime: string;
  dd, mm, yy, hh, nn, ss: Word;
begin
  result := 0;
  onErr := '';
  if dt_str = '' then
  begin
    onErr := 'Ошибка при конвертировании: нет данных';
    exit;
  end;

  try
    strTime := dt_str;
    s := LowerCase(Copy(strTime, 1, 3));
//  Saturday, 09-Jan-2016 05:31:30 GMT

    if Pos(s, wd) > 0 then
      Delete(strTime, 1, Pos(' ', strTime));

    if Pos('-', strTime) > 0 then
      s := Trim(Copy(strTime, 1, Pos('-', strTime) - 1))// Saturday, 09-Jan-2016 05:31:30 GMT
    else
      s := Trim(Copy(strTime, 1, Pos(' ', strTime))); // Wed, 03 Jan 2001 05:45:00

    Delete(strTime, 1, Length(s) + 1);      //'09-Jan-2016 05:31:30 GMT'    s='09-Jan-2016'
    dd := StrToIntDef(s, 0);

    s := LowerCase(Copy(strTime, 1, 3));    //'05:31:30 GMT'
    Delete(strTime, 1, 4);

    mm := (Pos(s, Month) div 3) + 1;
    s := Copy(strTime, 1, 4);

    Delete(strTime, 1, 5);
    yy := StrToIntDef(s, 0);

    Result := EncodeDate(yy, mm, dd);

    s := strTime[1] + strTime[2];

    hh := StrToIntDef(strTime[1] + strTime[2], 0);
    nn := StrToIntDef(strTime[4] + strTime[5], 0);
    ss := StrToIntDef(strTime[7] + strTime[8], 0);
    Delete(strTime, 1, 9);

    Result := Result + EncodeTime(hh, nn, ss, 0);
    if (CompareText(strTime, 'gmt') <> 0) and blnGMT then
    begin
      hh := StrToIntDef(strTime[2] + strTime[3], 0);
      nn := StrToIntDef(strTime[4] + strTime[5], 0);
      if strTime[1] = '+' then
        Result := Result - EncodeTime(hh, nn, 0, 0)
      else
        Result := Result + EncodeTime(hh, nn, 0, 0);
    end;
    onErr := '';
  except
    on e: exception do
    begin
      result := 0;
      onErr := 'Ошибка при конвертировании [' + dt_str + ']: ' + e.message;
    end;
  end;
end;