Как объединить idHTTP1.Get и WebBrowser1?

[DemonXT]

В процессе отладки моей программы приходится много эксперементировать с запросами в idHTTP1.Get. Результат приходится сохранять в текстовый файл, а потом смотреть, что получил в ответ от сервера в стандартонм браузере. А можно, как-нибуть результат перенаправить в компанент WebBrowser1? Значительно бы облегчило работу!
Спасибо!

[Пепел Феникса]

procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string; blank:boolean);
var
 sl: TStringList;
 ms: TMemoryStream;
begin
 WebBrowser.Navigate('about:blank');
 while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do Application.ProcessMessages;
 if Assigned(WebBrowser.Document) then
  begin
   sl := TStringList.Create;
   try
    ms := TMemoryStream.Create;
    try
     sl.Text := HTMLCode;
     sl.SaveToStream(ms);
     ms.Seek(0, 0);
     (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms) );
    finally
     ms.Free;
    end;
   finally
    sl.Free;
   end;
  end;
end;

[DemonXT]

Большое спасибо. Очень помогло.

[DemonXT]

Есть одно замечания по отработке процедурки: при выводе html-кода в WebBrowser выскакивают ошибки сценария Internet Explorer (причём очень часто). Можно их как-то отлавливать и гасить?

[Квэнди]

свойство silent у twebbrowser-а выстави в true

[DemonXT]

Сообщение от Квэнди

свойство silent у twebbrowser-а выстави в true

Спасибо. Помогло.