普通にダウンロードできるようです
function GetStreamFrom(URL: string): TMemoryStream;
var IdHTTP: TIdHTTP; SSL: TIdSSLIOHandlerSocketOpenSSL; Cookie: TIdCookieManager;
begin
result := TMemoryStream.Create;
IdHTTP := TIdHTTP.Create(nil);
IdHTTP.ReadTimeout := 20000;
IdHTTP.ConnectTimeout := 20000;
IdHTTP.RedirectMaximum := 16;
IdHTTP.HandleRedirects := True;
IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/98.0.4758.80 Safari/537.36 Edg/98.0.1108.50';
SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSL.SSLOptions.SSLVersions := [sslvTLSv1_2];
IdHTTP.IOHandler := SSL;
Cookie := TIdCookieManager.Create(nil);
IdHTTP.CookieManager := Cookie;
IdHTTP.AllowCookies := true;
try try
IdHttp.Get(URL, result); result.Seek(0, TSeekOrigin.soBeginning);
except on e: exception do begin ShowMessage(URL + ':', e.Message); freeAndNil(result); end; end;
finally FreeAndNil(SSL); FreeAndNil(Cookie); IdHTTP.Free; end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Stream: TMemoryStream;
begin
Stream := GetStreamFrom('https://msedgedriver.azureedge.net/97.0.1072.69/edgedriver_win32.zip');
if Stream <> nil then begin Stream.SaveToFile(AppDir + PathDelim + 'edgedriver_win32.zip'); Stream.free; end;
end;