Проблема с кодировкой

Вообщем у меня проблема с кодировкой, юзаю делфи 10 читал что там багнутый инди и за этого такой напряг с кодировкой, ну мне мою проблему надо как-то решить.
Вот сайт http://emolife.ru/user/Fable отправляю пост запрос

Code:

enter:=TStringList.Create;
enter.Add('fullname=Вася');
enter.Add('land=Москва'));
form3.idHTTP1.post('',enter));
enter.free;

Такая херня, никакие перекодировки типо анситоютф не помогают. При приеме этой стр тоже была проблема с кодировкой решилась так:

Code:

function RussianToUnicode(S: String): String;
     var Wrd:Word;
       pW,pR:PWord;
       len:Integer;
     begin
       pW:=@S[1];
       len:=Length(S);
       SetLength(Result,len);
       pR:=@Result[1];
       while Len<>0 do begin
         Wrd:=pW^;
         case Wrd of
           $C0..$DF,$E0..$FF:pR^:=Wrd+$0350;
           else pR^:=Wrd;
         end;
         inc(pW);
         inc(pR);
         dec(Len);
       end;

Если принимать стр в потоке то все норм:

Code:

stream := tMemoryStream.Create;
   try
   idHTTP1.get('http://emolife.ru', stream);
   stream.Position := 0;
   strings := tStringList.Create;
   strings.LoadFromStream(stream);
   memo1.Lines.Assign(strings);
   strings.Free;
   finally
   stream.Free;
   end;

Вот помогите как отправить мне пост запрос с правильной кодировкой? И привидите плиз пример как отправить пост запрос в потоке, взяв такие данные

Code:

enter:=TStringList.Create;
enter.Add('fullname=Вася');
enter.Add('land=Москва'));
form3.idHTTP1.post('',enter));
enter.free;