wb: TWebBrowser;
meoInfo: TMemo;
...
procedure TfrmWebInfo.btnGetInfoeClick(Sender: TObject);
var
ov: OleVariant;
i: Integer;
begin
meoInfo.Lines.Clear;
ov := wb.OleObject.Document.all;
for i := 0 to (ov.Length - 1) do
if UpperCase(ov.Item(i).tagName) = 'A' then
if Pos('delphi', ov.Item(i).InnerText) > 0 then
meoInfo.Lines.Append(ov.Item(i).href);
{meoInfo.Lines.Append(ov.Item(i).id+'|'+ov.Item(i).tagName+'|'+ov.Item(i).href)}
end;