Кодировка при отправке запроса

[Voody]

В семерке были проблемы с принятием сообщений.
Теперь в 2010 с отправкой. Indy 10.5.5

При Post запросе в один параметр помещается русский текст, например 'Роман'.

Data.Add('name=Роман');

В итоге на сервере вижу: 'Р*оман'

Уже перепробовал функции для строк всякие, еще где-то что-то прочитал, но пока ничего не помогает.
Может есть какие-то идеи. Не у меня одного такая проблема

[AquaKlaster]

Встречал это и не раз... Это из за Unicode, здесь применить можно URL кодировку, должно помочь.

function UrlEncode(const s: string; NeedUTF8: Boolean = False): string;
var
  I: integer;
  W: UTF8String;
begin
  Result := '';
  if NeedUTF8 then
    W := UTF8Encode(S)
  else
    W := S;
  for i := 1 to Length(W) do
    case W[i] of
      '%', ' ', '&', '=', '@', '.', #13, #10, #128..#255: Result := Result + '%'
        + IntToHex(Ord(W[i]), 2);
    else
      Result := Result + W[i];
    end;
end;

[Voody]

Не помогает(
сервер вообще говорит, что неверный запрос.

[Voody]

таки опять сам нашел)))
надо использовать TStringStream:

var
  ss: TStringStream;
  s,s2 : UTF8String; //Или AnsiString в зависимости от того с какой кодировкой работает сервер
begin
  IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
  ss := TStringStream.Create;
  s  :='Значение1';
  s2 :='Значение2';
  ss.WriteString('param1='+s+'&param2='+s2);
  IdHTTP1.Post('http://site.ru/',ss);
  ss.Free;
end;

[AquaKlaster]

Да если TStringStream то запрос не кодируется юникодами, а отправляется напрямую AnsiString