Parsear datos de un Memo

[ZayDun]

Hola, quiero extraer datos que me llegan a un memo, pensaba que sería lo mas fácil de hacer, pero cuando he realizado unas pruebas he visto que estoy haciendo algo mal y no se donde esta el problema. Si alguien me pudiese orientar un poco se lo agradecería.

Código Delphi [-]
Var
Time:String;
i:integer
Begin
Time:=Memo1.Lines.Text;

// Datos a extraer del memo duracion=12:25"
for i:=1 to Memo1.Lines.Count-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;

Al recorrer el memo me muestra unicamente un dato, cuando pensaba que recorrería todo el memo1 y me añadiria los resultados en el memo2.