怎么实现文件的系在功能

如何实现文件的系在功能
用delphi编写一个可是实现文件下载的程序，请问如何实现？ delphi 文件下载
[解决办法]
给了答案,  不给分..   楼主人品堪忧.

uses UrlMon;
//-------------------------------------------
function DownloadFile(SourceFile, DestFile: string): Boolean;
// 参数 下载文件路径, 保存文件路径
// 返回 下载结果
　begin
　try
　Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
　except
　Result := False;
　end;
end;
{调用：}
var
　url,destFile:string;
begin
url := 'http****filename.rar'
destFile := 'E:\filename.rar'
if DownloadFile(url, DestFile) then
　begin
　ShowMessage('保存成功！');
　end
　else
　begin
　ShowMessage('保存不成功！');
　end;
end;