¡Hola, bulc!
No se si te logro comprender del todo lo que necesitas.
Código Delphi
[-]
function TForm1.getLines2(Lines1: TStrings): TStrings;
var
i: integer;
begin
Result := TStringList.Create;
if (Lines1[0]='') then
Lines1.Delete(0);
for I:= 0 to Lines1.Count - 1 do
if (Lines1[i]='') then
Lines1.Delete(I) ;
ShowMessage ('Lines1: ' + IntToStr (Lines1.Count ) );
for I:= 0 to Lines1.Count - 1 do
if ( I Mod 2 = 0 ) then
Result.Add(Lines1[i] + Lines1[I+1]) ;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo2.Lines.Assign(getLines2(Memo1.Lines));
end;