Bucle while sólo devuelve un valor

[Jovalca]

Hola a todos.

Ante todo y como siempre, gracias por leer este post y a ver si alguien puede echarme una mano.

Estoy desarrollando una aplicación, en principio sencilla, que obtiene el código fuente HTML de un sitio web y lo guarda en un TMemoryStream. Posteriormente, este código lo cargo en un TStringList para poder manipularlo y extraer la información que necesito mediante algunas funciones que ya tengo preparadas. Hasta aquí bien.

Lo que ocurre ahora es que los resultados son varios a lo largo del código fuente y para cogerlos todos he creado el siguiente código:

Código Delphi [-]
var
  i: integer;
begin
  for i:= 0 to Lista.Count -1 do
    begin
    i:= i+1;
    Memo2.Lines.Add(ExtractTagAndTextInsideGivenTagEx('tr',Lista[i]));
  end;
end;

Tambien he probado con:

Código Delphi [-]
while i < Lista.Count -1 do
  begin
    i:= i+1;
    Memo2.Lines.Add(ExtractTagAndTextInsideGivenTagEx('tr',Lista[i]));
  end;

Lo que me ocurre con ambos es que sólo me devuelve el primer resultado que hay en el código... Y al menos hay 7 resultados. Si es capaz de sacar el primer resultado, porqué se detiene y no obtiene los siguientes? Que estoy haciendo mal?

Gracias de antemano.
Saludos.