怎么实现文件的系在功能

如何实现文件的系在功能
用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;