Foros Club Delphi - El memo sólo me acepta una línea

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.

Código:

  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?