AJUDA NO COMANDO FOR DO BEGIN

FABRICIOWEB 31/12/2013 10:35:34
#432561

DIM BAIRRO AS STRING

FOR I = 0 TO WebBrowser1.Object.Document.All.item.Length DO BEGIN
IF WebBrowser1.Object.Document.All.item(I).innerText = [Ô]BAIRRO/DISTRITO[Ô] THEN
BAIRRO = WebBrowser1.Object.Document.All.item(I+1).innerText
END IF

End sub