for I := 0 To Page.count -1 do 
begin

 If (Pos('">', page[i]) <> 0) and (Pos('</a>', page[i]) <> 0) Then
 begin

 end;

end;