Загрузка стримом

var
sk:Tstream;
begin
 for i:=0 to htmllist.Count-1 do
begin
  application.ProcessMessages;
  htmllist.ItemIndex:=i;
  sk:=Tstream.Create;
  sk := Download2Stream(htmllist.Items.Strings);
if sk <> nil then
  sk.position := 0;
  dtext.Lines.LoadFromStream(sk);
  sk.Free;
end;
end;

function Download2Stream(const URL: WideString): TStream;
var
  dwBytesRead: DWORD;
  hService: HINTERNET;
  hSession: HINTERNET;
  lpBuffer: array[0..1024 + 1] of Char;
begin
  Result := nil;
  hSession := InternetOpenW('AIMP2', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    if Assigned(hSession) then
    begin
      hService := InternetOpenUrlW(hSession, PWideChar(URL), nil, 0, 0, 0);
      if Assigned(hService) then
        try
          Result := TMemoryStream.Create;
           while True do
            begin
               dwBytesRead := 1024;
               InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
               if dwBytesRead = 0 then break;
               Result.Write(lpBuffer, dwBytesRead);
            end;
        finally
          InternetCloseHandle(hService);
        end;
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;