procedure TForm10.Button2Click(Sender: TObject);
var
  vec,ResultURL,put: string;
  GetX,GetY,GetZ,i:integer;
  stream:tmemorystream;
  m:integer;
  begin
  m:=10;
    GetX:=strtoint(floattostr(zoom(m)));
    repeat
    GetX:=GetX-1;
    GetY:=strtoint(floattostr(zoom(m)));
       repeat
         GetY:=GetY-1;
         GetZ:=m;


         vec:='http://............................................................=';
         ResultURL := vec +inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&g=';

         //put:='M:\mycash\'+inttostr(GetZ)+'\'+ inttostr(GetX div 1024)+'\x'+inttostr(GetX)+'\'+ inttostr(GetY div 1024)+'\';

         memo1.Lines.add(ResultURL);
         //memo2.Lines.add(put+inttostr(GetY)+'.png');


        //wait(100);
       until GetY=0;
    application.ProcessMessages;
    until GetX=0;

  end;

\cache\osm_CycleMap\z15\10\x10472\5\y5324.png