Показать динамическую ссылку?

[eldar]

Так вот
Есть код:

procedure TForm1.Button4Click(Sender: TObject);
var tmp: string;
    i,cnt1,cnt2: integer;
begin
Memo2.Clear;
for i:=0 to Memo1.Lines.Count-1 do
begin
tmp:='view.php?ad=';
cnt1:=Pos(tmp,Memo1.Lines[i]);
if cnt1>0 then
begin
tmp:='ad=';
cnt2:=PosEx(tmp,Memo1.Lines[i],cnt1);
if cnt2>0 then
Memo2.Lines.Add(Copy(Memo1.Lines[i],cnt1,cnt2-cnt1));
end;
end;
end;
end.

Но к сожелению в memo2 показываются вот эти ссылки

view.php?
view.php?
view.php?
view.php?
view.php?
view.php?
view.php?
view.php?
view.php?
view.php?
view.php?
view.php?
view.php?


А мне нужно

<tr> 
								  <td width="70%" class="al3"><span class="al6">
								  <a class=al4 href=view.php?ad=66649 target=_blank>Tons Of Premium Products</a> 								  
								  </span></td>
								  <td width="10%" class="al5"><span class="al6">
									948852</span></td>
								  <td width="10%" class="al5"><span class="al6">
									58743</span></td>
								  <td width="10%" class="al5"><span class="al6">
									1007595</span></td>
								</tr>
												        </table><br>
					   						
						<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr> 
                          <td width="70%" class="al7"><span class="al6"><strong>
						  Reference & Education</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Member</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Outside</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Total</strong></span></td>
                        </tr>
														<tr> 
								  <td colspan="4" class="al2"><span class="al6">
								  No Current Ads</span></td>
								 </tr>
											        </table><br>
					   						
						<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr> 
                          <td width="70%" class="al7"><span class="al6"><strong>
						  Travel & Accommodation</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Member</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Outside</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Total</strong></span></td>
                        </tr>
														<tr> 
								  <td colspan="4" class="al2"><span class="al6">
								  No Current Ads</span></td>
								 </tr>
											        </table><br>
					   						
						<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr> 
                          <td width="70%" class="al7"><span class="al6"><strong>
						  Arts & Entertainment</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Member</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Outside</strong></span></td>
                          <td width="10%" class="al1"><span class="al6"><strong>Total</strong></span></td>
                        </tr>
													
								<tr> 
								  <td width="70%" class="al3"><span class="al6">
								  <a class=al4 href=view.php?ad=67104 target=_blank>WOW - For Making Tons Of Gold... Fast!</a> 								  
								  </span></td>
								  <td width="10%" class="al5"><span class="al6">
									222305</span></td>
								  <td width="10%" class="al5"><span class="al6">
									11221</span></td>
								  <td width="10%" class="al5"><span class="al6">
									233526</span></td>
								</tr>

Тоесть вот

view.php?ad=67104
view.php?ad=66649

[eldar]

procedure TForm1.Button4Click(Sender: TObject);
var tmp: string;
    i,cnt1,cnt2: integer;
begin
Memo2.Clear;
for i:=0 to Memo1.Lines.Count-1 do
begin
tmp:='view.php?ad';
cnt1:=Pos(tmp,Memo1.Lines[i]);
if cnt1>0 then
begin
tmp:='target=_blank>';
cnt2:=PosEx(tmp,Memo1.Lines[i],cnt1);
if cnt2>0 then
Memo2.Lines.Add(Copy(Memo1.Lines[i],cnt1,cnt2-cnt1));
end;
end;
end;
end.