[Страдалецъ]

Настоятельно рекомендую никогда не трогать счетчик цикла внутри самого цикла. Возможно в Delphi7 это и не вызывает ошибку компиляции, но в следующих версиях этот код уже не прокатит и это правильно. Вот такой вариант попробуйте:

Код:

a_:=17;
while a_ < 226
do begin
    ExcelApp.Range[ExcelSheet.cells[a_,1],ExcelSheet.cells[a_+5,1]].Select;
    ExcelApp.Selection.merge;
    a_:=a_+5;
    end;