Extract all links?

[barvinog]

Sorry, this code doesn't extract all links from html source:

procedure Test(html);
var
LHtml: IHtmlElement;
LList: IHtmlElementList;
begin
LHtml := ParserHTML(html);
if LHtml <> nil then
begin
LList := LHtml.SimpleCSSSelector('a');
for LHtml in LList do
Memo1.Lines.Add('url:' + LHtml.Attributes['href']);
end;
end;