在 Delphi 中，要解析 HTML 的 div 代碼可以使用 TWebBrowser 組件。

var
doc: IHTMLDocument2;
begin
doc := WebBrowser1.Document as IHTMLDocument2;
if doc<>nil then
begin
// 獲取所有的 div 元素
var divs := doc.body.all.tags('div') as IHTMLElementCollection;
for var i := 0 to divs.length - 1 do
begin
// 獲取當前 div 元素的 innerHTML
var divHtml := divs.item(i).innerHTML;
ShowMessage(divHtml);
end;
end;

以上代碼中，我們首先取得了 TWebBrowser 組件中的 IHTMLDocument2 接口，然后使用其 body 屬性獲取文檔的 body 元素，接著使用 all.tags('div') 方法獲取所有的 div 元素并轉換為 IHTMLElementCollection，最后通過遍歷 IHTMLElementCollection 來獲取每個 div 元素的 innerHTML。

innerHtml 屬性可以獲取 div 元素內的所有 HTML 代碼，包括子元素、文本和內聯樣式等。如果需要獲取 div 元素的文本內容，可以使用 innerText 屬性。