如何采集网页代码中的一部分

比如网页代码中很多像下面="2user/index.asp?username=zcj1088"这样的代码,想把所有2user/index.asp?username=zcj1088赋值给数组变量
<TD>&nbsp;</TD>
<TD vAlign=top align=left><STRONG><A href="2user/index.asp?username=zcj1088" target=_blank><FONT color=#ff6500>温州环球笔业有限公司</FONT></A>&nbsp;&nbsp; <FONT color=#ff6500>[温州市]</FONT></STRONG> <BR>&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;温州市环球笔业有限公司是“中国制笔王”、“中国制笔名牌产品”的自营出口先进企 </TD>delphi代码 是否正确
procedure TForm1.Button7Click(Sender: TObject);
var
i:integer;
b,htmlstr:string;
a:array of string;
begin
htmlstr:=memo1.Text;
b:='2user/index.asp?username=';
i:=0;
setlength(a,100000);
while Pos(b,htmlstr)>0 do
begin
a[1]:=Copy(htmlstr,1,Pos(b,htmlstr));
i:=i+1;
Delete(htmlstr,1,Pos(b,htmlstr));
listbox1.Items.Add(a[1]);
end;
showmessage('一共循环了'+inttostr(i)+'次');
end;