procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
s,link : string;
begin
memo2.Lines.Clear;
For i := 0 to memo1.Lines.Count - 1 do begin
s := memo1.Lines[i];
while pos('<a href',s) <> 0 do begin
s := copy(s,pos('<a href=',s)+9,length(s));
link := copy(s,0,pos('">',s)-1);
memo2.Lines.Add(link);
s:=copy(s,pos('">',s),length(s));
end;
end;
end;
end.