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?