[NumLock]

Код:

procedure TFormMain.Button2Click(Sender: TObject);
var
  s: String;
begin
  s:='http://pogoda.yandex.ru/тольятти/details/';
  s:=UTF8Encode(s);
  IdHTTP1.HandleRedirects:=True;
  Memo1.Text:=UTF8Decode(IdHTTP1.Get(s));
end;