function DownloadFile(SourceFile, DestFile: string): Boolean;
begin try
Screen.Cursor :=crHourGlass;
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0,nil) = 0;
Screen.Cursor :=crDefault;
except
Result := False;
end;
End;