[Помогите!] RegEXpr

[АнтиАмерика]

как парсить две строки?
ОДНОЙ строчкой!
з.ы. зачем мне это надо, не спрашивайте.

[*xalyava*]

RegExp.Expression:= ' <td colspan="3" align="right">(.*?)<strong>(.*?)</strong>';
     if RegExp.Exec(переменная)then
     label2.caption:=(RegExp.Match[1]);
     label2.caption:=(RegExp.Match[2]);

//(.*?) то что парсим

// (RegExp.Match[2]) - цифра 2 обозначает 2-ую по счету (.*?), цифра 1 соответственно 1-ую (.*?)


вот пример:

procedure TForm1.Button1Click(Sender: TObject);
var
k:TStrings;
s:string;
 regexp:tregexpr;
begin
 regexp:= tregexpr.Create;
 k:=Tstringlist.Create;
 try
 s:=idhttp1.get('http://zhyk.ru/forum/showthread.php?t=265675');

 RegExp.Expression:= '<div id="post_message_1759998">(.*?)<br />(.*?)<br />';
     if RegExp.Exec(s)then
     memo1.lines.Add(RegExp.Match[1]);
     memo1.lines.Add(RegExp.Match[2]);

     finally

     k.Free;
     regexp.Free;
end;
 end;