for i := 0 to WebBrowser1.OleObject.links.Length - 1 do begin s := WebBrowser1.OleObject.Document.links.Item(i).InnerText; if name = s then begin WebBrowser1.OleObject.document.all.tags('A').item(i).click; end; end; when OleObject.Document a memory leak occurs, it is recommended to solve it using ControlInterface.Document - how to use it?