Var
Time : String;
i : integer
Begin
Time := Memo1.Lines.Text;
for i:= Memo1.Lines.Count-1 downto 1 do
If Pos('duracion=',Time) > 0 Then
Begin
Delete (Time,1,Pos('duracion="', Time) + 8);
Delete (Time, Pos ('"', Time), MaxInt);
Memo2.Lines.Add(Time);
End;