怎样让程序自动点击链接进入下一个页面去搜集资料(100分)

我正在用delphi 6做一个项目，要求能自动到单位的网站上，找“项目”开头的链接
并自动进入这个链接，把项目进度状态记录在本地数据里。
我是用的是IHTMLDocument,IHTMLinputelement等等类型做的，现在能自动通过身份
验证登录到单位网站并能找到这些链接，问题是
1、我无法让程序自动点击链接进入下一个页面去搜集资料,该怎么写；
2、我单位的网站设了cookie,便于跟踪来访者，程序是否需做特别考虑。
请高手点拔一下，有例子片段就行了。

谢谢

procedure TForm1.Button2Click(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;
memo1.lines.add(strLinks);
//如果你要点他，就用 link.click;
end;
end;
end;

to buff
谢谢你，给你加分了