<input type="text" name="textf" id="textf"/><br /></form></font>
</body><br /></html></font>
[/code]

我想要取得span的欄位名稱，但用下面的程式去跑，抓不到span，請問該怎麼改寫下面的程式
[code delphi]
function TForm1.GetFormByNumber(document: IHTMLDocument2;
formNumber: integer): IHTMLFormElement;
var
forms: IHTMLElementCollection;
begin
forms := document.Forms as IHTMLElementCollection;
if formNumber < forms.Length then<br /> result := forms.Item(formNumber,'') as IHTMLFormElement
else
result := nil;
end;

function TForm1.GetFormFieldNames(fromForm: IHTMLFormElement): TStringList;
var
index: integer;
field: IHTMLElement;
input: IHTMLInputElement;
select: IHTMLSelectElement;
text: IHTMLTextAreaElement;
span : IHTMLSpanElement;
begin
result := TStringList.Create;
for index := 0 to fromForm.length do
begin
field := fromForm.Item(index,'') as IHTMLElement;
if Assigned(field) then
begin
if field.tagName = 'INPUT' then
begin
// Input field.
input := field as IHTMLInputElement;
result.Add(input.name);
end
else if field.tagName = 'SELECT' then
begin
// Select field.
select := field as IHTMLSelectElement;
result.Add(select.name);
end
else if field.tagName = 'TEXTAREA' then
begin
// TextArea field.
text := field as IHTMLTextAreaElement;
result.Add(text.name);
end
Else
Begin
result.Add(field.tagName);
result.Add('aaaa');
End;
end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
document: IHTMLDocument2;
theForm: IHTMLFormElement;
index: integer;
fields : TStringList;
begin
theForm := GetFormByNumber(WebBrowser1.Document as IHTMLDocument2,0);
fields := GetFormFieldNames(theForm);

for index := 0 to fields.count-1 do
ShowMessage('Field ' IntToStr(index) ' called ' fields[index]);
end;
[/code]