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);
Url := Copy(Texto, PosIni, PosFin-PosIni-1);
Ini := Pos('?=', Url);
Valor := Copy(Url, Ini+2, Length(url)-1);
Inc(PosIni);
end;
Saluditos