Tient une soluce a ton problème 
Ajoute cette fonction a ton projet :
procedure ParseHtml( Buffer : string; Liste : TStringList; CHAINE_DEBUT :string; CHAINE_FIN : string );
var
chaine : string;
Lien : string;
rang : Integer;
cpt : Integer;
begin
cpt := 0;
chaine := buffer;
rang := Pos( CHAINE_DEBUT, chaine );
while rang > 0 do
begin
Inc(cpt);
chaine := Copy( chaine, rang + Length(CHAINE_DEBUT), Length(chaine) );
Lien := Copy( chaine, 1, pos( CHAINE_FIN, chaine )-1 );
Liste.Add( Lien );
rang := Pos( CHAINE_DEBUT, chaine );
end;
end;
Et pour appeler la fonction voila un exemple :
Memo1 => là où se trouve le texte HTML (tu met ta source à la place)
CheckListFile => La où je sort mes lignes trouvé (Tu met la destination que tu veux)
procedure Machin();
var
Liens : TStringList; // <- Tableau de string pour stocker tes resultats
begin
Liens := TStringList.Create;
[ ... ]
ParseHtml( Memo1.Text, Liens, '<', '>' ); // Appel de ma fonction
CheckListFile.Items.AddStrings( Liens ); // (Facultatif) Si tu veux y mettre dans une liste
Liens.Free;
[ ... ]
end;
Cordialement.
Damien