Перехват ссылки в webbrowser1 и перевод её в IdHTTP1

[medved6216]

Проблема вот в чём, нужно перехватывать ссылку из webbwoser1 до момента загрузки страницы и посылать её в IdHTTP1, выполнять функцию поиска по коду, сохранять отфильтрованный код, сохранять его в файле, и запускать в браузере
Вот что я смастерил, но он виснет, из-за того что не может закончиться фильтровку

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
Source:string;
begin
memo2.Text:='';
memo2.Lines[0]:='http://ссылка';{как сделать перехват ссылке, просто ввёл ссылку, чтобы попробовать}
Source:=IdHTTP1.Get(memo2.lines[0]);{соответсвенно посылаем эту ссылку в IdHTTP1, можно в принципе послать другим способом}
Delete(Source,1,Pos('<index>',Source)+6);
Delete(Source,Pos('</index>',Source),Length(Source)-Pos('</index>',Source)-1);
memo1.Text:=source;
memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'show.html');
webbrowser1.Navigate(ExtractFilePath(Application.ExeName)+'show.html');{вот тут программа начинает походу всё по кругу или просто виснет}
end;

Что мне исправить? Или как реализовать это.

[Stilet]

memo2.Lines[0]:=URL;

[medved6216]

Сообщение от Stilet

memo2.Lines[0]:=URL;

Выдаёт ошибку HTTP /1.0 404 not found

[Stilet]

Странно... У меня вроде не глючит...

[medved6216]

Сообщение от Stilet

Странно... У меня вроде не глючит...

а у меня вылетает, посмотри правильно ли я использую событие, для перехвата ссылке

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);