IdHTTP in Android Release Modus

[TiGü]

Delphi-Quellcode:

procedure TFMain.FormCreate(Sender: TObject);
var
  mstream: TMemoryStream;

  function DownloadFile(const aURL: string; aStream: TStream): boolean;
  // THTTPClient benötigt im Gegensatz zu TidHTTP beim Download von htpps:// KEINE SSL Dateien!
  var
    vHTTP: THTTPClient;
    vResponse: IHTTPResponse;
  begin
    Result := False;
    Assert(aStream <> nil);
    vHTTP := THTTPClient.Create;
    try
      vHTTP.CustomHeaders['Pragma'] := 'no-cache';
      vResponse := vHTTP.Get(aURL, aStream);
      if Assigned(vResponse) then
      begin
        Result := vResponse.StatusCode = 200;
      end else
      begin
          // kluge Log-Möglichkeit, damit man mitbekommt, das keine Instanz von IHTTPResponse zurückkommt
      end;
    finally
      vHTTP.Free
    end;
  end;

begin
  mstream := TMemoryStream.Create;
  try
    try
      DownloadFile('https://www.[]', mstream);
      Memo1.Lines.LoadFromStream(mstream);
    except
      // [kein Internet, lokal gespeicherten Dateiinhalt/Backup verarbeiten]
    end;
  finally
    mstream.Free;
  end;
end;

Wie ist es denn so?