WinInet ('GET') = Иероглифы. Как починить?

[trafbite]

Всем привет.
Ребят, выручайте!

Пробую получить страничку через проксик. Есть функция:

function TProxyChecker.TryGetScript(Proxy: String): String;
  function DataAvailable(hRequest: pointer; out Size: cardinal): BOOLEAN;
  begin
    Result := WinInet.InternetQueryDataAvailable(hRequest, Size, 0, 0);
  end;
var
  hInternet, hConnect, hRequest: pointer;
  dwBytesRead, i, L: cardinal;
  TimeOut: Integer;
begin
  try
    hInternet := InternetOpen(PWideChar(DefaultAppName), INTERNET_OPEN_TYPE_PROXY, PWideChar(proxy),Nil,0);
    if Assigned(hInternet) then
    begin
      TimeOut:=2000;
      InternetSetOption(hInternet, INTERNET_OPTION_CONNECT_TIMEOUT, @TimeOut, sizeof(TimeOut));
      InternetSetOption(hInternet, INTERNET_OPTION_SEND_TIMEOUT, @TimeOut, sizeof(TimeOut));
      InternetSetOption(hInternet, INTERNET_OPTION_RECEIVE_TIMEOUT, @TimeOut, sizeof(TimeOut));
      InternetSetOption(hInternet, INTERNET_OPTION_DATA_RECEIVE_TIMEOUT, @TimeOut, sizeof(TimeOut));

      hConnect := InternetConnect(hInternet, PWideChar('domen.com'),INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
      if Assigned(hConnect) then
      begin
        hRequest := HttpOpenRequest(hConnect, PChar('GET'), PWideChar('/script.php'), HTTP_VERSION, nil, Nil, INTERNET_FLAG_KEEP_CONNECTION, 1);
        if Assigned(hRequest) then
        begin
          i := 1;
          if HttpSendRequest(hRequest,nil, 0, nil, 0) then
          begin
            repeat
              DataAvailable(hRequest, L);
              if L = 0 then
                break;
              SetLength(result, L+I);
              if not InternetReadFile(hRequest, @result[I], sizeof(L), dwBytesRead) then
                break;
              inc(I, dwBytesRead);
            until dwBytesRead = 0;
            result[I] := #0;
          end;
        end;

      end;
    end;
  finally
  end;
end;

Потом вызываю ее так:

...
var
  HtmlCode: String;
...
  HtmlCode:=TryGetScript(Proxy);
...

Так вот в HtmlCode получаются иероглифы (если выводить его в Memo, а если в файл, то вопросы). Что-то не то с кодировкой, но ГДЕ?

[trafbite]

Ну, кто-нибудь!