Проблемы с кодировкой - Delphi - Ответ 3325636

function Tf1.GetCoord(adr: string): string;
var
  ii,jj: integer;
  bb: boolean;
  ss: string;
  val: Ansistring;
  SRes : UTF8String;
begin
  memo1.Clear;
 
[B]  val:='http://maps.googleapis.com/maps/api/geocode/xml?address='''+Edit3.Text+'''&sensor=false&language=ru ';
  SRes:=AnsiToUtf8(val);
  XMLDocument1.FileName:=SRes;[/B]
  memo1.Lines.Add(XMLDocument1.FileName);
  XMLDocument1.Active := true;
  memo1.lines.add(XMLDocument1.DocumentElement.ChildNodes['status'].Text);
  if XMLDocument1.DocumentElement.ChildNodes['status'].Text='OK' then begin
    memo1.Lines.Add(
        VarToStr(XMLDocument1.DocumentElement.
            ChildNodes['result'].
            ChildNodes['geometry'].
            ChildNodes['location'].
            ChildNodes['lat'].text)
                   );
    memo1.Lines.Add(
        VarToStr(XMLDocument1.DocumentElement.
            ChildNodes['result'].
            ChildNodes['geometry'].
            ChildNodes['location'].
            ChildNodes['lng'].text)
                   );
 
 
            ss:='';
    jj:=XMLDocument1.DocumentElement.
            ChildNodes['result'].ChildNodes.Count-1;
    ii:=0; bb:=true;
    while bb do begin
       if VarToStr(XMLDocument1.DocumentElement.
            ChildNodes['result'].
            ChildNodes[ii].
            ChildNodes['type'].text)=
            'sublocality' then begin
       ss:=
        VarToStr(XMLDocument1.DocumentElement.
            ChildNodes['result'].
            ChildNodes[ii].
            ChildNodes['short_name'].text)
                   ;
              bb:=false;
            end;
       inc(ii);
       if ii>=jj then bb:=false;
    end;
 
 
    if length(ss)=0 then begin
    jj:=XMLDocument1.DocumentElement.
            ChildNodes['result'].ChildNodes.Count-1;
    ii:=0; bb:=true;
    while bb do begin
       if VarToStr(XMLDocument1.DocumentElement.
            ChildNodes['result'].
            ChildNodes[ii].
            ChildNodes['type'].text)=
            'administrative_area_level_2' then begin
       ss:=
        VarToStr(XMLDocument1.DocumentElement.
            ChildNodes['result'].
            ChildNodes[ii].
            ChildNodes['short_name'].text)
                   ;
              bb:=false;
            end;
       inc(ii);
       if ii>=jj then bb:=false;
    end;
    end;
 
    memo1.Lines.Add(ss);
 
  end;
 
  XMLDocument1.Active := false;
end;