Delphi - Baixar imagens pela URL

No Delphi, para baixar imagens a partir do seu endereço URL é necessário declarar na cláusula Uses a lib Winapi.UrlMon.

A função que realiza essa ação é a URLDownloadToFile. Essa função possui os seguintes parâmetros:

• Caller: IInterface

• URL: PWideChar

• FileName: PWideChar

• Reserved: Cardinal

• StatusCB: IBindStatusCallback

Exemplo:

Uses [...], Winapi.UrlMon;

[...]

procedure DownloadURL;
var
  url_img: string;
  path_img: string;
begin
	url_img := 'https://static.wixstatic.com/media/917d103965314e2eacefed92edb6492c.jpg/v1/fill/w_1349,h_740,al_c,q_85,usm_0.66_1.00_0.01,enc_auto/917d103965314e2eacefed92edb6492c.jpg';
	path_img := 'C:\Imagens\img_baixada.jpg';

	URLDownloadToFile(nil, PWideChar(url_img), PWideChar(path_img), 0, nil);
end;

Obs.: código feito e testado no Delphi 10.1 Berlin.