el codigo no hace lo que voy buscando.. pero fue un intento antes de darme por vencido.Ahora mismo no tengo el codigo a mano, pero asi es lo que habia hecho.
Código Delphi
[-]
If Pos ('title="',memo)>0 Then
Begin
Delete (memo,1,Pos('title="',memo));
Delete (memo,Pos('',memo),MaxInt);
Memo2.Lines.Text:=memo;
End;
asi lo unico que consigo es quedarme con el nombre de usuario.