delphi - HTML ソースからリンクを抽出する

Question

HTML ソース コードから複数のリンクを抽出する方法がわかりません。

htmlコードはメモ1にあり、リンクはメモ2に抽出されます..

この関数を使用して、2 つのタング間または 2 つのストリング間のリンクを抽出します。

Function ExtractBetweenTags(Const Line, TagI, TagF: string): string;
var
  i, f : integer;
begin
  result := '';
  i := Pos(TagI, Line);
  f := Pos(TagF, Copy(Line, i+length(TagI), MAXINT));
  if (i > 0) and (f > 0) then
    Result:= Copy(Line, i+length(TagI), f-1);
end;

これにより、リンクが1つしか得られません..だから、何度も試したすべてのリンクを取得する方法はありますが、うまくいきません:/