P := PChar(Memo1.Lines.text);
 Repeat
  P := AnsiStrPos(P, href); 
   If P <> Nil Then
Begin
 P := StrScan(P, =);
 S :='';
 If P <> Nil then
  Repeat
    Inc(P);
    If (P <> Nil) and(P^<> >) then S:=S+P^;
 Until (P = Nil)or(P^= >);
If S <> '' THen
ListBox2.Items.Add(Selection7);
End;
  Until P = Nil;
End;