Recorrer memo

[ZayDun]

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.