русский
поставим. Нет кода - не ставьте тэг языка. Достаточно упомянуть в вопросе, что реализуется на Python.procedure DlFile(Sender: TObject);
var hc:THttpClient;
begin
hc := THttpClient.Create;
hc.Send('GET','https://sun1-16.userapi.com/c847218/v847218376/144a98/xwXJLGsfTfY.jpg');
if hc.ResponseStatusCode = 301 then
hc.Send('GET', hc.Host + hc.GetHeader('location') );
TMemoryStream(hc.ContentStream).SaveToFile('C:\tmp\1.jpg');
hc.Free;
end;