Работа с OLE

[dreary999]

Доброго времени суток.
Вкратце о проблеме:
Мне нужно пронумеровать строки в ведомости excell.
Нумерация в столбце A.
Ну тут ничего сложного.
Проблема в том, что в ведомости встречаются объединенные ячейки в одну строку. Т.е. после ячейки A15 идет сразу Q15. Так вот, такие ячейки мне нумеровать не нужно. В них находится текст. В других ячейках столбца A обычно только цифры, которые я заменяю цифрами порядковой нумерации.
Вопрос в том, что взять за условие, что бы нумерация пропускала объедененные cell.

[dreary999]

procedure TForm1.Button15Click(Sender: TObject);
var
  s,   i, n : integer;

  XL: Variant;
begin
i:=1;
s:=1;
XL := CreateOLEObject('Excel.Application'); 
XL.WorkBooks.Open(urlMrsk);
n := XL.ActiveSheet.UsedRange.Rows.Count;
   xl.Range['A' + IntToStr(1)] := '';
    for i := 1 to n do

    begin

           xl.Range['A' + IntToStr(i)] := inttostr(s);
           s:=s+1;


           end;
                    XL.Application.Quit;

[dreary999]

еще вопрос, как в этом же коде сделать, что бы при нумерации соединенных по вертикали ячеек столбца A нумерация шла по порядку, а не считались объединенные ячейки за две?
Получается такая картина:
1-одинарная яч
2- одинарная яч
3-совмещенные 2 яч
5-одинарная яч
6-совмещенные 2 яч
8-одинарная яч

[dreary999]

второй вопрос решил брутально. Снял объединение ячеек в столбце А и потом выборкой достал строки, которые мне нужны