[ALexandr555]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
url,stroka,text:string;
s:char;
i:integer;
Begin
url:='http://pogoda.yandex.ru/';
stroka:='тольятти';
for i:=1 to length(stroka) do
   begin
    s:=stroka[i];
    if s in ['А'..'Я', 'а'..'я'] then
     begin
      url:=url+'%'+inttostr(ord(s));
     end
    else
     url:=url+s;
    end;
url:=url+'/details/';
text:=Utf8ToAnsi(idhttp1.Get(url));
memo2.Lines.Add(url);
memo2.Lines.Add(text);

код собственно