[XE8] TNetHttpRequest.OnRecieveData в деплое для android вешает приложение

[notricky]

Собственно поступаю я так - передаю по ссылке в процедуру reqReceiveData. 

procedure TFMain.reqReceiveData(const Sender: TObject; AContentLength, AReadCount: Int64; var Abort: Boolean);
begin
  if not PgbUpdate.Visible then
    PgbUpdate.Visible := true;
  PgbUpdate.Max := AContentLength;
  PgbUpdate.Value := AReadCount;
end;

Внутри процедуры соотв создается TNetHttpClient и TNetHttpRequest

В деплое для WIN32 - все работает, показывается прогресс-бар, все скачивается и тд. Однако в деплое для ANDROID при 

function TFMain.RunRequest(AUrl: String = ''; ARespStream: TBytesStream = nil; OnRcvData: TReceiveDataEvent = nil): TJSONObject;
begin
...
  c := TNetHTTPClient.Create(nil);
  r := TNetHTTPRequest.Create(nil);
...
  r.OnReceiveData := OnRcvData; //если закомментировать - все ок. Если нет - то на следующем шаге подвисон.
  resp := r.Get(url, ARespStream);
...
end;

зависает. Если закомментировать присвоение процедуры ресива, то все скачивается (только без прогресса). Процедура используется для всех версий: WIN, IOS, ANDROID,MACOS и работает исправно.

Кто что может сообщить по данному вопросу, вдруг кто сталкивался?

[notricky]

сюда никто не заходит или просто нет идей?

[Равиль Зарипов (ZuBy)]

Вы хотите сделать отображение прогресса при скачивании файлов?

Вместе со студией идёт демо-проекты, найти можно примерно по такому пути

C:\Users\Public\Documents\Embarcadero\Studio\18.0\Samples\Object Pascal\RTL