Busqueda en un richedit o en un memo

[*Caro*]

Con las etiquetas [delphi ] se pierde parte del codigo, deben ser cosas del VBulletin, este es el codigo completo:

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