[ALexandr555]

Код:

var
url,stroka: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/';
end;

march спасибо понял, так буду делать