线程中获取webbrowser的所有URL

[zhugeliangzhangfei]

我想在创建一个线程，获取webbrowser页面的所有url，代码如下，老是出错，刚学线程，帮忙看下，谢谢：
function MyCheckWebElement(p: Pointer):Integer;stdcall;//获取所有的URL
var
vDoc: OLEVariant;
i: integer;
begin
vDoc := form1.webbrowser1.Document;
for i:=0 to vDoc.links.tags('a').length-1 do
begin
try
form1.memo1.Lines.add(vDoc.links.tags('a').Item(i).innerText);
form1.memo1.Lines.add(vDoc.links.tags('a').Item(i).href);
except
end;
end;
Result:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ID: DWORD;
hThread:THandle;
begin
hThread := CreateThread(nil, 0, @MyCheckWebElement, nil,0, ID);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('www.baidu.com');
end;

不知道怎么改，老是报错