Loader.Get(Url, mStream); (*получаем данные в поток памяти*)
(*передаем данные без искажений кодировки в в массив байтов строки TBytes*)
         mStream.Position:=0;
         SetLength(Buffer,mStream.Size);
         mStream.Read(Buffer[0],Length(Buffer));
        (*---------------------------*)
        (*получаем ответы сервера*)
         ServerResponse:=AnsiLowerCase(Loader.Response.Rawheaders.text);
         ServerCharset:=AnsiLowerCase(Loader.Response.CharSet);
         GetServerCharset(ServerCharset);
        (*---------------------------*)
    (*переносим массив байтов в первозданном виде на выход*)
      //DataOut:=AnsiLowerCase(StringOf(B));
    (*вызов функции конвертации кодовой страницы под язык используемый в ОС*)
        DataOut:=CodePageConvert(Buffer);
        Result:=(ServerCharset + #13#10 + #13#10 + ServerResponse + #13#10 + DataOut);