[Kot137]

Реально так и есть:

Код:

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc: Variant;
  txt, tmp: string;
  x: integer;
begin
    Doc:= WebBrowser1.Document;
    txt:=doc.documentElement.innerHTML;
    tmp:=txt;
    x:=0;
  while Pos('href=', tmp)>0 do
  begin
    tmp:=Delete(tmp,2,3);
    richedit1.Lines.Add(tmp);
  end;
end;

но не работает