El memo sólo me acepta una línea

[rafita]

Hola a tod@s.

tengo un problemilla bastante tonto, y NECESITO UNA MANO

Debo leer un fichero .txt y transformarlo en otro.
Para minimizar los accesos al disco lo cargo en un Memo (Memo1) y, al transformarlo lo voy pasando a un segundo Memo (Memo2), pues bien, el destino solo me admite una línea (la primera que trata sea cual sea), y además la trunca.

  var   wEntrada, wSalida : String[153];
   begin
     // limpieza del memo de salida y de errores
     Memo2.Clear;
     Memo3.Clear;
   
     // bucle de tratamiento del memo de entrada
     PageControl1.ActivePage:=TabSheet2;
     Memo3.Lines.Append('***** Comienzo del proceso *****');
     while (i<Memo1.Lines.Count) and (i<15) do
     begin
	wEntrada:=Memo1.Lines[i];
	wSalida:=wEntrada;
	Memo2.Lines.Append(wSalida);
	Memo3.Lines.Add(wSalida);
	showmessage('Línea '+Inttostr(i)+#13+wsalida);
	i:=i+1; // avanzar en el fichero de entrada
     end;

He repasado todos los parámetros del Memo, lo he borrado y sustituido por otros, le he añadido líneas en diseño,.... todo lo que se me ha ocurrido y nada de nada.

Si le añado líneas: Memo2.Lines.Append('Hola') antes del Memo2.Lines.Append(wSalida) las reconoce bien, pero después de ejecutar una sola vez esta sentencia ya no admite nada más.

¿qué me está pasando?

[JPCastro]

en dónde inicializas tu variable de control "i"?

[roman]

Empezado por JPCastro

en dónde inicializas tu variable de control "i"?

Quien sabe. Pero como esto pasó hace tres años, imagino que ya lo resolvió

// Saludos

[JPCastro]

Si, me di cuenta que es desde 2005, pero tal vez si alguien más anda buscando, como yo ahora, le sirva de referencia sobre la duda que no se resolvió en su momento.

Saludos