try
      S := IdHTTP2.Get(DestURL);
      ResponseCode := IdHTTP2.ResponseCode;
      ResponseText := IdHTTP2.ResponseText;
      if ResponseCode = 200 then
        begin
          SL.Text := S;
          for i := 0 to SL.Count - 1 do
            if Pos(AnsiUpperCase(FileName), AnsiUpperCase(SL[i])) > 0 then
              begin
                Result := true;
                FileDate := ExtractFileDate(AnsiUpperCase(FileName), AnsiUpperCase(trim(SL[i])));
                Exit;
              end;
        end;
    except
      on E: Exception do
        begin
          ResponseCode := GetLastError;
          ResponseText := SysErrorMessage(ResponseCode) + #13#10 + E.Message;
        end;
    end;