IdMultipartFormData и кириллица Delphi 2010

[Shouldercannon]

Имеется Delphi 2010 с Indy 10.5.5. Проблема широко распространённая, по ней имеется много тем, но нет ответов.

procedure TForm3.Button1Click(Sender: TObject);
var
  Data: TIdMultiPartFormDataStream;
  HTTP: TIdHTTP;
begin
  HTTP := TIdHTTP.Create(nil);
  try
    try
      Data := TIdMultiPartFormDataStream.Create;
      Data.AddFormField('nick', 'Попс');
      Data.AddFormField('status', '0');
      Data.AddFormField('xstatus', '29');
      Data.AddFormField('xstatustxt', 'Тест');
      HTTP.Post('http://localhost/login.php?', Data);
    except
    end;
  finally
    Data.Free;
    HTTP.Free;
  end;
end;

В итоге в php приходит вместо киррилицы ???
Пробовал:
1.

HTTP.HTTPOptions := [];

2.

AnsiToUtf8('Попс')

и

Utf8ToAnsi('Попс')

3.

  SS := TStringStream.Create('Попс', CP_UTF8);
  Data := TIdMultiPartFormDataStream.Create;
  Data.AddFormField('nick', SS.DataString);

Не помогает! Видел решение проблемы только с TStringStream, но в моём случае данные отправляются только в TIdMultiPartFormDataStream.

[Utkin]

Возможно решение будет найдено только правкой компонента TIdMultiPartFormDataStream, если у Вас есть исходники - гляньте что-там по чем. Возможно он просто берет первую половину кодировки (ну то есть аглицкий и цифры). Либо внутри использует короткие строки в качестве типа данных.

[Shouldercannon]

Имеется такой файл.
Видел пример с модифицированным TIdMultiPartFormDataStream

 var 
  stream: TIdMultiPartFormDataStream; 
//// 
stream := TIdMultiPartFormDataStream.Create; 
  try 
    with stream do 
      begin 
        AddFormField('charcheck', 'йцукен', 'windows-1251').ContentTransfer := '8bit'; 
        AddFormField('message', AText, 'windows-1251').ContentTransfer := '8bit'; 
       //  
      end;

но самого файла нет.

[Utkin]

Во-первых, на время отладки можно добавить метод, который бы отслеживал данные меняющиеся с помощью AddFromField. Во-вторых, нужно также глянуть в TIdHTTP, может это он не умеет отправлять юникод.

[Shouldercannon]

То, что TIdHTTP не умеет работать с юникод подтверждено. Спасает

var
  HTTP: TIdHTTP;
  SS: TStringStream;
begin
  HTTP := TIdHTTP.Create(nil);
  SS := TStringStream.Create('');
  try
    try
      HTTP.Get('localhost', SS);
      Result := SS.DataString;
    except
      Result := '';
    end;
  finally
    HTTP.Free;
    SS.Free;
  end;
end;

иначе ??? вместо кириллицы

[Shouldercannon]

procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  Data: TIdMultiPartFormDataStream;
begin
  HTTP := TIdHTTP.Create(nil);
  try
    try
      Data := TIdMultipartFormDataStream.Create;
      Data.AddFormField('nick', UTF8Encode('Попс'), 'windows-1251').ContentTransfer := '8bit';
      Data.AddFormField('status', UTF8Encode('0'), 'windows-1251').ContentTransfer := '8bit';
      Data.AddFormField('xstatus', UTF8Encode('29'), 'windows-1251').ContentTransfer := '8bit';
      Data.AddFormField('xstatustxt', UTF8Encode('Тест'), 'windows-1251').ContentTransfer := '8bit';
      ShowMessage(HTTP.Post('http://localhost/login.php?', Data));
    except
    end;
  finally
    Data.Free;
    HTTP.Free;
  end;
end;

[Человек_Борща]

1. UTF8Decode/Encode существуют с незапамятных времен.
2. С Delphi 2010 существует мощный TEncoding по сравнению с ним, функции из 1 варианта валяются укуреными в сторонке.
3. С Delphi 2010, INDY поддерживает TEncoding в GET, POST запросах(доп. параметр как константа) и чтобы все было шоколадно можно делать так:

sHTML:=http.Get('http://мойрусскийсайт/',TEncoding.UTF8);