Utf-8 нечитабельные знаки

[FLIER]

Здравствуйте. Загружаю пакет через httpsend (synapse). Распаковываю и сохраняю в файл.

procedure UnzipHttp(http: THTTPSend; stream:TStream);
begin
 HeadersToList(http.Headers);//привели заголовки к виду Name=Value
 Stream.Size     := 0;
 Stream.Position := 0;
  if Trim(http.Headers.Values['Content-Encoding']) = 'gzip' then {проверяем заголовок}
   begin
     //тут разжимаем данные
    GZDecompressStream(http.Document, Stream);
   end
    else
   begin
    //так как данные не сжаты - просто считываем строку
    http.Document.SaveToStream(Stream);
   end;
end;
....
var
Stream: TStringStream;
...
UnzipHttp(Httpsend, stream);
stream.SaveToFile('c:\1\INPUT1.txt');

Заголовки ответа:

(Status-Line):HTTP/1.1 200 OK
Server:nginx
Date:Mon, 10 Nov 2014 19:19:46 GMT
Content-Type:text/html;charset=UTF-8
Connection:keep-alive
Access-Control-Allow-Origin:http://www.....com
Content-Length:8388

Смотрю полученный текст в мемо

Stream := TStringStream.Create; Stream.Size := 0; Stream.Position := 0;
html   := TStringList.Create;


Stream.LoadFromFile('c:\1\INPUT1.txt');
Stream.Position := 0;
html.Text := Stream.ReadString(stream.Size);
Memo1.Lines.Text := html.Text;

Добавляю:

var
s:AnsiString;
...
s := UTF8ToString(html.Text);
html.Text := s;
Memo1.Lines.Text := html.Text;

Русские символы появились, но не все, проблемное место осталось не читаемым. Подскажите пожалуйста как исправить. Delphi xe3
Спасибо.

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

Попробуйте UTF8Encode, Decode

[VIK_aka_TOR]

в indy HTTPClient помогло с кодировкой

IdHTTP1.Request.ContentType := 'charset=windows-1251'; // или нужную кодировку

указывается перед выполнением запроса
так же можно добавить формат данных ожидаемых, тогда будет так:

IdHTTP1.Request.ContentType := 'text/html; charset=windows-1251';

[xxbesoxx]

Добавляю:
Код HTML:

var
s:AnsiString;
...
s := UTF8ToString(html.Text);
html.Text := s;
Memo1.Lines.Text := html.Text;

Ошибка в s:AnsiString; попробуй s: UTF8String;

var
  s: UTF8String;
...
	s := UTF8ToString(html.Text);
	html.Text := s;
	Memo1.Lines.Text := html.Text;

[FLIER]

Сообщение от VIK_aka_TOR

IdHTTP1.Request.ContentType := 'charset=windows-1251'; // или нужную кодировку

Сервер все равно отправляет utf-8

Сообщение от xxbesoxx

Ошибка в s:AnsiString; попробуй s: UTF8String;

Не помогло.

Сообщение от Человек_Борща

Попробуйте UTF8Encode, Decode

Спасибо за наводку. Cервер у себя сохраняет переданные данные. Закодировал перед отправкой и все получилось