Проблема с текстом

[kardinal94]

Возникла проблема с кодировкой при отправке GET запроса. Например при отправке на Yandex:

Wor:=form2.keyWord.Text;
Wor:=StringReplace(wor, ' ', '+',
                          [rfReplaceAll, rfIgnoreCase]);
Yand:=Form2.IdHttp1.Get('http://yandex.ru/yandsearch?date=&text='+wor+'&site=&rstr=&zone=all&wordforms=all&lang=all&within=0&from_day=&from_month=&from_year=&to_day=&to_month=&to_year=&mime=all&numdoc=50&lr=30');

При оправке запроса, если текст в Wor русский - получаются "????". Прошу подсказать. AnsiToUtf8, Utf8Encode не пашут.

Delphi 2010. Indy 10.

[veniside]

Wor:=StringReplace(wor, ' ', '+', [rfReplaceAll, rfIgnoreCase]);

этого мало, нужен полноценный URLEncode().

[kangreon]

procedure TForm1.Button1Click(Sender: TObject);
var
  http: TIdHTTP;
  url: string;
  text: string;
begin
  text := 'Текст поиска';

  url := 'http://yandex.ru/yandsearch?date=&text=' + text + '&site=&rstr=&z..&lr=30';// 
  http := TIdHTTP.Create;
  url := http.URL.URLEncode(url);
  http.Get(url);
  http.Free;
end;

[kardinal94]

Спасибо. Проблема решена. Темку можно в мусорку.