Работа с MapWindow GIS. Статические карты Яндекс

procedure TGeoCoderYandex.Button1Click(Sender: TObject);
var
 html,l,query:WideString;
 ParsClass:TParserXML;
 i:integer;
begin
 try
  //если выбрана не работа с БД, то запрашиваем у Яндекса данные
  if CheckBox1.Checked=False then
   begin
    //проверяем чтобы пользователь не ввел пустой запрос
    if Trim(Edit1.Text)='' then
     begin
      Application.MessageBox('Введите запрос','Внимание',MB_OK+MB_ICONINFORMATION);
      exit;
     end;
    //загружаем настройки из Setting.ini
    if Ini.ReadString('GeoYandex','Proxy','')='True' then
     begin
      IdHTTP1.ProxyParams.ProxyPort:=Ini.ReadInteger('GeoYandex','ProxyPort',0);
      IdHTTP1.ProxyParams.ProxyServer:=Ini.ReadString('GeoYandex','ProxyIP','');
      IdHTTP1.ProxyParams.ProxyUsername:=Ini.ReadString('GeoYandex','ProxyUsername','');
      IdHTTP1.ProxyParams.ProxyPassword:=Ini.ReadString('GeoYandex','ProxyPassword','');
     end;
    if Ini.ReadString('GeoYandex','Log','')='True' then
     begin
      IdHTTP1.Intercept:=IdLogFile1;
      IdLogFile1.Filename:=Ini.ReadString('GeoYandex','LogFile','');
      IdLogFile1.Active:=True;
     end;
    Coord:=TStrings.Create;
    query:=Edit1.Text;
    while (pos(' ',query)<>0) do
     begin
      Insert('%20',query,pos(' ',query));
      Delete(query,pos(' ',query),1);
     end;
    html:=IdHTTP1.Get('http://geocode-maps.yandex.ru/1.x/?geocode='+AnsiToUtf8(query));
    ParsClass:=TParserXML.Create;
    ComboBox1.Items:=ParsClass.ParsXMLArr(html,'text');
    Coord:=ParsClass.ParsXMLArr(html,'pos');
    ComboBox1.ItemIndex:=0;
    if ComboBox1.Items.Count<>0 then
     begin
      ComboBox1.Enabled:=True;
      Button2.Enabled:=True;
      Button3.Enabled:=True;
     end
    else
     Application.MessageBox('По Вашему запросу ничего не найдено','Внимание',MB_OK+MB_ICONINFORMATION);
   end;
  //работа с БД а не онлайн
  if CheckBox1.Checked=True then
   begin
   //проверяем чтобы пользователь не ввел пустой запрос
    if Trim(Edit1.Text)='' then
     begin
      Application.MessageBox('Введите запрос','Внимание',MB_OK+MB_ICONINFORMATION);
      exit;
     end;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT * FROM Yandex WHERE name LIKE ''%'+Edit1.Text+'%''');
    ADOQuery1.Active:=True;
    if ADOQuery1.RecordCount=0 then
     begin
      Application.MessageBox('По Вашему запросу ничего не найдено','Внимание',MB_OK+MB_ICONINFORMATION);
      exit;
     end;
    Coord2:=TStringList.Create;
    ADOQuery1.First;
    for i:=0 to ADOQuery1.RecordCount-1 do
     begin
      ComboBox1.Items.Add(ADOQuery1.Fields.Fields[1].AsString);
      Coord2.Add('31.010895 52.431881');
      ADOQuery1.Next;
     end;
     ComboBox1.ItemIndex:=0;
     ComboBox1.Enabled:=True;
     Button2.Enabled:=True;
   end;
  except
   on e:Exception do
    begin
     FreeAndNil(Coord2);
    end;
  end;
end;

function TParserXML.ParsXML(XML,tag: WideString): WideString;
begin
   Delete(XML,1,pos('<'+tag+'>',XML)+length('<'+tag+'>')-1);
   Delete(XML,pos('+tag+'>',XML),length(XML));
   Result:=XML;
end;
 
function TParserXML.ParsXMLArr(XML, tag: WideString): TStrings;
var
 ParsTag:TParserXML;
 i:integer;
begin
   try
    Result:=TStringList.Create;
    ParsTag:=TParserXML.Create;
    i:=1;
    while (i<=length(XML)) do
     begin
      if pos('<'+tag+'>',XML)<>0 then
       begin
        Result.Add(Utf8ToAnsi(ParsTag.ParsXML(XML,tag)));
        Delete(XML,1,pos('+tag+'>',XML));
        i:=0;
       end;
      inc(i);
     end;
    ParsTag.Free;
   finally
   end;
end;

procedure TGeoCoderYandex.Button2Click(Sender: TObject);
var
 img:TStringStream;
 crd,zoom,pixel:String;
 png:TPNGObject;
 i:Image;
begin
 if CheckBox1.Checked=False then
  begin
   //создаем PNG-изображение, которое будем грузить с Яндекса
   png:=TPNGObject.Create;
   //формируем координаты картинки
   crd:=Coord.Strings[ComboBox1.ItemIndex];
   Insert(',',crd,pos(' ',crd));
   Delete(crd,pos(' ',crd),1);
   //считываем из INI-файла настройки масштаба и размера картинки
   zoom:=Ini.ReadString('GeoYandex','ZoomSize2','');
   pixel:=Ini.ReadString('GeoYandex','PixelSize2','');
   //запрашиваем картинку на Яндексе
   img:=TStringStream.Create(IdHTTP1.Get('http://static-maps.yandex.ru/1.x/?ll='+crd+'&spn='+zoom+'&size='+pixel+'&l=map'));
   //загружаем в PNG наш стрим
   png.LoadFromStream(img);
   //временно его сохраняем
   png.SaveToFile(ExtractFilePath(ParamStr(0))+'Yandex\'+crd+'.png');
   i:=CoImage.Create;
   i.Open(ExtractFilePath(ParamStr(0))+'Yandex\'+crd+'.png',PNG_FILE,False,nil);
   //отображаем наше изображение в TMap
   Form1.Map1.AddLayer(i,True);
   //если пользователем выствалена настройка не хранить все изображения с Яндекса локально, то удаляем их
   if Ini.ReadString('GeoYandex','SaveMap','')<>'True' then
    begin
     //очищаем папку с изображением, кроме последнего, так как он будет в TMap
     ClearDir(ExtractFilePath(ParamStr(0))+'Yandex\');
    end;
   FreeAndNil(png);
   FreeAndNil(Coord);
   Close;
  end;
 if CheckBox1.Checked=True then
  begin
   try
    //формируем координаты картинки
    crd:=Coord2.Strings[ComboBox1.ItemIndex];
    Insert(',',crd,pos(' ',crd));
    Delete(crd,pos(' ',crd),1);
    i:=CoImage.Create;
    i.Open(ExtractFilePath(ParamStr(0))+'Yandex\'+crd+'.png',PNG_FILE,False,nil);
    //отображаем наше изображение в TMap
    Form1.Map1.AddLayer(i,True);
    FreeAndNil(Coord);
    Close;
   except
    on e:Exception do
     Application.MessageBox('Не удается отобразить файл','Внимание',MB_OK+MB_ICONINFORMATION);
   end;
  end;
end;