Работа с Excel. Суть: Если номер строки в Excel четный тогда объеденяем эту ячейку с последующей.

var
  exSheet, exRng, exCell : Variant;
  Row, RowCnt : Integer;
...
begin
...
  //Счёт номеров строк начинаем с верхней строки листа.
  //Номер самой нижней строки в используемом на листе диапазоне (UsedRange).
  RowCnt := exSheet.UsedRange.Row + exSheet.UsedRange.Rows.Count - 1;
  //Перебираем в первом столбце все ячейки с чётным номером строки.
  Col := 1;
  Row := 2;
  while Row <= RowCnt do begin
    //Ссылка на текущую ячейку.
    exCell := exSheet.Cells[Row, Col];
    //Объединение текущей ячейки с ячейкой, расположенной на строку ниже.
    exSheet.Range[exCell, exCell.Offset[1, 0]].MergeCells := True;
    //Номер следующей чётной строки.
    Inc(Row, 2);
  end;
...

...
var
  Row, Col, RowCnt : Integer;
...
begin
...
end;
...

procedure TForm1.Button1Click(Sender: TObject);
var
     XL: Variant;
     i: Integer;
begin
 XL := CreateOLEObject('Excel.Application'); // Ñîçäàíèå OLE îáúåêòà
 XL.WorkBooks.add;
 XL.WorkBooks.Open('D:\book.xls');
 XL.Visible:=true;
for I := 5000 downto 1 do
   begin
     if XL.Cells[I,1].value='5' then
        begin
           XL.Rows[I].delete;
        end;
end;

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  exApp, exBook, exSheet, exRng, exCell : Variant;
  Row, Col, RowCnt : Integer;
begin
  exApp := CreateOLEObject('Excel.Application'); // Создание OLE объекта
  exApp.Visible := True;
  exBook := exApp.WorkBooks.Open('D:\book.xls');
  exSheet := exBook.Worksheets[1]; //Первый лист в рабочей книге.
 
  //Ссылка на интерфейс используемого диапазона.
  exRng := exSheet.UsedRange;
  //Номер нижней строки в используемом диапазоне относительно верхней строки листа.
  RowCnt := exRng.Row + exRng.Rows.Count - 1;
  Col := 1;
 
  //Удаление строк.
  for Row := RowCnt downto 1 do
    if exSheet.Cells[Row, Col].Text = '5' then
      exSheet.Rows[Row].Delete;
 
  //Объединение ячеек.
 
  //Чтобы Excel не выводил диалоговых окон с предупреждениями при объединениях ячеек, отключаем
  //режим показа предупреждений.
  exApp.DisplayAlerts := False;
  
  //Вычисляем заново номер нижней строки. Так как после удалений
  //это значение изменилось.
  RowCnt := exRng.Row + exRng.Rows.Count - 1;
  //Перебираем в первом столбце все ячейки с чётным номером строки.
  Row := 2;
  while Row <= RowCnt do begin
    //Ссылка на текущую ячейку.
    exCell := exSheet.Cells[Row, Col];
    //Объединение текущей ячейки с ячейкой, расположенной на строку ниже.
    exSheet.Range[exCell, exCell.Offset[1, 0]].MergeCells := True;
    //Номер следующей чётной строки.
    Inc(Row, 2);
  end;
  
  //Теперь включаем режим показа предупреждений.
  exApp.DisplayAlerts := True;
end;

...
  exApp.ScreenUpdating := False;
 
  //Действия.
  ...
  ...
  ...
 
  //Включаем перерисовку окна.
  exApp.ScreenUpdating := True;
...

...
  exApp.ScreenUpdating := False;
  try
    //Действия.
    ...
    ...
    ...
  finally
    //Включаем перерисовку окна.
    exApp.ScreenUpdating := True;
  end;
...

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  exApp, exBook, exSheet, exUsRng, exRng, exCell : Variant;
  Row, Col, RowCnt : Integer;
  S : String;
begin
  exApp := CreateOLEObject('Excel.Application'); // Создание OLE объекта
  exApp.Visible := True;
  exBook := exApp.WorkBooks.Open('D:\book.xls');
  exSheet := exBook.Worksheets[1]; //Первый лист в рабочей книге.
 
  //Ссылка на интерфейс используемого диапазона.
  exUsRng := exSheet.UsedRange;
  //Номер нижней строки в используемом диапазоне относительно верхней строки листа.
  RowCnt := exUsRng.Row + exUsRng.Rows.Count - 1;
  Col := 1;
  
  try
    //Выключаем перерисовку окна.
    exApp.ScreenUpdating := False;
 
    //Удаление строк.
    for Row := RowCnt downto 1 do
      if exSheet.Cells[Row, Col].Text = '5' then
        exSheet.Rows[Row].Delete;
 
    //Объединение ячеек.
 
    //Чтобы Excel не выводил диалоговых окон с предупреждениями при объединениях ячеек, отключаем
    //режим показа предупреждений.
    exApp.DisplayAlerts := False;
    //Вычисляем заново номер нижней строки. Так как после удалений
    //это значение изменилось.
    RowCnt := exUsRng.Row + exUsRng.Rows.Count - 1;
    //Перебираем в первом столбце все ячейки с чётным номером строки.
    Row := 2;
    while Row <= RowCnt do begin
      //Ссылка на текущую ячейку.
      exCell := exSheet.Cells[Row, Col];
      //Определяем объединяемый диапазон.
      exRng := exSheet.Range[exCell, exCell.Offset[1, 0]];
      //Собираем значения в одну строку.
      S := exRng.Cells[1, 1].Text + #13#10 + exRng.Cells[2, 1].Text;
      //Объединение ячеек.
      exRng.MergeCells := True;
      //Для объединённого диапазона устанавливаем режим переноса по словам.
      exRng.WrapText := True;
      //Записываем текст.
      exRng.Cells[1, 1].Value := S;
      //Номер следующей чётной строки.
      Inc(Row, 2);
    end;
  finally
    //Теперь включаем перерисовку окна и включаем режим показа предупреждений.
    exApp.ScreenUpdating := True;
    exApp.DisplayAlerts := True;
  end;
end;

const
  xlAscending = 1; //Для сортировки по возрастанию.
  xlDescending = 2; //Для сортировки по убыванию.
  xlYes = 1; //Верхняя строка диапазона не участвует в сортировке.
  xlNo = 2; //Верхняя строка диапазона участвует в сортировке.
  xlSortColumns = 1; //Сортировать по столбцам.
  xlSortRows = 2; //Сортировать по строкам.
...
begin
...
  //Вертикальная сортировка диапазона exRng по значениям крайнего левого столбца
  //в диапазоне exRng. Направление сортировки - по возрастанию.
  exRng.Sort(Key1:=exRng.Cells[1, 1], Order1:=xlAscending, Header:=xlNo, Orientation:=xlSortColumns);