200百分求助，我要将一个网上URL连接的图片资源存为本地文件（帮提也给分）(200分)

例如有一个URL:http://www.sina.com.cn/test.jpg，如何让程序自动接收这个URL后将此图片
存在本地一个目录下，谢谢如果觉得分不够可以再加，最好给段示例源码

uses urlmon
function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result:=UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
Result:=False;
end;
end;

ok,谢谢大侠并给分