Вот код

На win работаед на android не работаед

Вроде нет. Но у гита кажется есть API

Особо не вникал, но сразу видна ошибка: в потоке нельзя обращаться к компонентам формы

Тебе уже сказали, что ты нашел самый плохой пример из всех возможных.
Ищи другой

И если что не работает - пиши что именно

Ну понятно. Я тебе сейчас скину.

Жду вас

проси зарплату его сначала

эм... у гитхаба, ты имел в виду?

Да я просто свой старый класс скину. Код-то готовый

тем самым ты стимулируешь его манеру задавать "вопросы"

Да мы о нем. Просто кротко гитом звали

Ему не более чем повезло)

Есть большая разница между помощью человеку который чего-то не понимает и который не хочет понимать, а только ждёт готовых решений за чужой счёт

ну репы ты можешь клонировать ))) (ваш КО)

)) не, я о прям встраивании кода. Например, фрейма с листингом файла или целого репозитория с возможностью перейти на сайт

Работает сокращенно так:

TDownload.CreateAndStart('https:\\vk.com', 'D:\tmp.html');

Меня смущает, что github проприетарный, собственность Майкроофт. И они могут в любой момент прикрыть репозиторий с примерами кода по любому поводу. Как дополнительный инструмент - да.

Ну вроде как если не нарушаешь правила, то как прикроют доступ

Вот так не сокращенно

TDownload.CreateAndStart('https://files.com/file', 'D:\file.tmp',
    procedure(const Sender: TObject; AContentLength: Int64; AReadCount: Int64; var Abort: Boolean)
    begin
      ProgressBar1.Max := 100;
      ProgressBar1.Position := Round((100 / AContentLength) * AReadCount);
    end,
    procedure(Sender: TDownload; ResponseCode: Integer)
    begin
      if ResponseCode = 200 then
        ShowMessage('Всё ок скачалось ' + Sender.FileName);
    end);