String;
  hRequest : pointer;
  dwBytesRead, I, L : Cardinal;
  sss: String;
  dwLength: DWORD;
  dwcode: array[1..20] of char;
  res: String;
-------------------------------------

I:=1;
 if HttpSendRequest(hRequest,PChar(sss), Length(sss), nil, 0) then
                 begin
                     repeat
                     dataAvaible(hRequest, L);
                     if L = 0 then break;
                     SetLength(result, L+I);
                     if InternetReadFile(hRequest, @result[I], sizeof(L), dwBytesRead) then
                     else break;
                     inc(I, dwBytesRead);
                     until dwBytesRead = 0;

                     result[I] := #0;
                     res := PChar(@dwcode);
                 end;