Twebbrowser -часть вторая

[#define TRUE FALSE]

Нужна помощь вот с какой проблемой -
(использую Twebbrowser)
есть код

 
<tr>
 <td>СЛОВО_1</td>
</tr>
 ..... 
<tr>
 <td>СЛОВО_7</td>
</tr>
			  
<tr>
 <td>СЛОВО_8</td>
</tr>

КАК пропарсить этот код и "вбить" в массив my_words все СЛОВА_№ ?

[Ник]

 procedure ParseStr(const str,StartStr,EndStr:string; var res:TStringList) ;
var
ps,pe:integer;
s:string;
begin
s:=str;
ps:=pos(StartStr,str);
pe:=posEx(EndStr,s,ps);
while (ps <> 0)and(pe<>0) do
begin
	ParseStr(copy(s,ps+length(StartStr),pe-ps-length(EndStr)+1),'<td>','</td>',res);
	delete(s,ps,pe+length(EndStr)-1);
	ps:=pos(StartStr,s);
	pe:=posEx(EndStr,s,ps);
end;
if (ps = 0)and(pe = 0)and (length(s)>0)and (s<>#13#10) then res.Add(s)
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s:TStringList;
begin
s:=TStringList.Create;
ParseStr(Твоя_строка,'<tr>','</tr>',s);
ShowMessage(s.Text);
s.Free;
end;

вроде так..

[#define TRUE FALSE]

thx man