Memo alterado juntar líneas impar y par

[engranaje]

Me pasa igual que a Movorack y no tengo muy claro haber entendido bien. En mi caso entendí que te refieres a algo similar a esto:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
 lista: Tstringlist;
  i:integer;
begin
   lista:= tstringlist.create;
   try
      lista.LoadFromFile('C:\Prueba\entrada.txt');
      for i:= (lista.count-1) downto 0 do
         if lista[i] = '' then 
            lista.Delete(i);

      for i:= 0 to (lista.count - 1) do
         if ((i mod 2) = 0) and (i < (lista.count -1))then
            lista[i] :=  lista[i] + lista[i+1];

      lista.SaveToFile('C:\Prueba\salida.txt');
   finally
      lista.free;
   end;
end;

Para poder probarlo de forma fácil cargo los datos del Stringlist desde un fichero entrada.txt en el que puedes meter las líneas como quieras y después de procesarlo guardo el resultado en un fichero salida.txt