procedure DownloadFile(const aUrl, aFile: string);
var
aStream: variant;
begin
aStream := CreateOleObject('ADODB.Stream');
aStream.Type := 1;
aStream.Open(aUrl, 1);
aStream.SaveToFile(aFile);
end;

这句报错：
aStream.Open(aUrl, 1);

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

估计是小问题，那位帮忙看一下。
先谢