[[movorack]]

¡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);  // Corchete y paréntesis.

  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;