为什么我什么都没取到？(50分)

WebBrowser1中网页已完全打开

procedure Tform3.Button3Click(Sender: TObject);
var doclevariant;
i:integer;
link levariant;
strLinks :string;
begin
if Webbrowser1.Document<>nil then
begin
Doc := WebBrowser1.Document;
for i := 0 to Doc.Links.Length - 1 do
begin
Link := Doc.Links.Item(i, 0);
StrLinks := Link.ToString;
showmessage(strlinks); end;
end;
end;

为什么我什么都没取到？？？？[]

对不起观众了，这个网页的确没有任何link

那就結貼吧...呵呵...我特來檢分的...

接受答案了.