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