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

[snakesoft]

Здравствуйте.У меня такая проблемка.
Имеется листбокс,в нем адреса страниц в интернете.
При нажатии на кнопку нужно пройтись по списку и по очереди загрузить в memo указанную страницу.

//при нажатии на кнопку
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[i]);
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('', 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;

Проблема в том,что прога вылетает на sk.free;
Помогите решить проблему пожалуйста
С уважением.

[Квэнди]

смысл усложнять код?
компонент IdHttpClient
метод GET
в цикле делайте GET каждому адресу в возвращаемом результате будет код страницы

[snakesoft]

Попробовал IDhttpClient

idhttp1.Get('http://yandex.ru',mem);
memo1.Lines.LoadFromStream(mem);

Вылетает с ошибкой

Acess violation at adress 00415C5C in module 'Project1.exe' Read of adress 00000000.

[Квэнди]

Ну чтож вам так лень залезать в help...
первый вариант:

s:string;
...
s:=idhttp1.Get('http://yandex.ru');
memo1.lines.add(s);

второй вариант:

....
memo1.text:=idhttp1.Get('http://yandex.ru');

[snakesoft]

Благодарю,Квэнди!

[snakesoft]

Только вот прикол еще в чем...
Пытаюсь выполнить загрузку по списку

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=-1;
while i<listbox1.Count do
begin
i:=i+1;
listbox1.ItemIndex:=i;
memo1.text:=idhttp1.Get(listbox1.items.Strings[i]);
end;
end;

Текст страницы не грузится в memo.

memo1.text:=idhttp1.Get('http://yandex.ru');  ////если использовать так то все грузится

[snakesoft]

ААА....Соррии я забыл
application.ProcessMessages; написать в цикле.
Теперь все норм.
Извиняйте