Function DownloadToFile(URL,fn : String) : Boolean;
begin
URL := URL + #0;
FN:= FN+ #0;
Result := UrlDownloadToFile(nil, @URL[1], @fn[1], 0, nil) = 0;
end;
procedure DownloadAll;
var
i,j:integer;
s:string;
begin
for i:=1 to 100 do
for j:=1 to 100 do
begin
s:=inttostr(i)+'_'+inttostr(j)+'.png';
DownloadToFile('http://www.bgmaps.com/bgmaps_png/bg/sofia/m5k/'+s,s);
end;
end;



imam 15MBits peering v kushti za kolko minuti mislish che drupnah vsichko bez nikakvi nishki :)