подмена контента в twebbrowser

[ttbot]

привет всем!
возникла потребность в следующем :
есть некая html страничка в интернете с обильными вкраплениями javascript. мне нужно сделать так чтобы при загрузки в браузер стиралась одна строчка на javascript (не html тег а строка на javascript именно) или заменялась пробелом на этой страничке, весь остальной хтмл должен быть в первоначальном виде.
как это реальзовать не знаю, вернее знаю что можно при помощи прокси сервера как то, и знаю что можно при помощи twebbrowser,
как и то,а реализовать на бумаге не знаю как. с чего начать куда копать и как лучше.
twebbrowser должен загрузить документ из интернета, другая функция стереть не нужную строчку (если она найдена), и отдать twebbrowser'у обратно уже подкоректированую страничку для загрузки и показу пользователю.
кто сталкивался подскажите пожалуйста, здесь на форуме поискал, подходящего не нашел, если такая задача здесь описана ранее - дайте ссылочку пожалуйста.

[N0iD]

Доброго времени суток.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActiveX, StdCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, OleCtrls, SHDocVw, IdCookieManager;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    IdCookieManager1: TIdCookieManager;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
//Процедура вставки текста в WebBrowser
procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
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;

procedure TForm1.Button1Click(Sender: TObject);
var
  Slist:String;
  idtag,idtag1,idtag2:Integer;
  Http:TIdHTTP;
  cm:TIdCookieManager;
begin
  cm:= TIdCookieManager.Create(Self);
  Http := TIdHTTP.Create(Self);
  Http. HandleRedirects:=True;
  Http.CookieManager:=cm;
  Http.AllowCookies:=True;

  Http.Get('http://rambler.ru/'); // 302 редирект
  Slist:=Http.Get(Http.Response.Location); // получаем текст по ссылке с редиректа 
  delete(Slist,pos('<title>',Slist),pos('</title>',Slist)-pos('<title>',Slist)+1);
//Удаляем то тчо в нутри тегов\ как то тут правда странно удаляет , курить надо. //</title> почемуто остется

//Загружаем отредактированный текст в вебраузер.
  WB_LoadHTML(WebBrowser1, Slist);
end;

Наверное как то так.