Busqueda en un richedit o en un memo

[*Caro*]

Hola titomigue, puedes utilizar las funciones Pos, PosEx y Copy, tu codigo quedaría mas o menos así:

Código Delphi [-]
var
 Texto, Url, Valor : String;
 ............
begin
 PosIni := 0;
 Texto := Memo1.Text;
 While PosEx('<a href', Texto, PosIni)>0 Do
 begin
  PosIni := PosEx('<a href', Texto, PosIni);
  PosFin := PosEx('>', Texto, PosIni);
  
  //Obtenemos la Url
  Url := Copy(Texto, PosIni, PosFin-PosIni-1);  
  Ini := Pos('?=', Url);
  Valor := Copy(Url, Ini+2, Length(url)-1); //Valor lo guardas en tu arreglo o StringList
 
  Inc(PosIni);
 end;

Saluditos