Не знаю где поставить «try»

[KBO]

Доброе время суток форумчане,
Есть процедура, которая заносит в переменную «LExcelData», данные с листа Excel.
Потом с помощью Repeat я читаю последовательно данные и пишу в БД.

LStartRow := 14;
  LNumRow := LStartRow;
Repeat
//при каждой строке проверять закончилась ли таблица, если закончилась, то выходить из цикла
    for LNumCol := 0 to LCols-1 do
    begin
      ….
    end;
    inc(LNumRow);
 
 Until //проверка на заполнение следующей строки
   (LExcelData[LNumRow+1, 2] = unassigned)
         and (LExcelData[LNumRow+1, 3] = unassigned);

и вот в строке

LExcelData[LNumRow+1, 2] = unassigned

У меня возникает исключение «EVariantBadIndexError». (..class EVariantBadIndexError with message 'Variant or safe array index out of bounds'.)

Мне нужно как-то в блок «Until» поставить блок «try…except»

except
   on E: Exception do break;

Заранее спасибо за подсказку.

[KBO]

а все, придумал...
ввел дополнительную переменную, и перед Until, присваиваю ей значение

...
try
       s := LExcelData[LNumRow+1, 2];
       s := LExcelData[LNumRow+1, 3];
       except
       on E: Exception do break;
     end;
 Until (LExcelData[LNumRow+1, 2] = unassigned)
         and (LExcelData[LNumRow+1, 3] = unassigned);
...

вот не знаю на сколько это правильно?...

[northener]

Сообщение от KBO

а все, придумал...
ввел дополнительную переменную, и перед Until, присваиваю ей значение

...
try
       s := LExcelData[LNumRow+1, 2];
       s := LExcelData[LNumRow+1, 3];
       except
       on E: Exception do break;
     end;
 Until (LExcelData[LNumRow+1, 2] = unassigned)
         and (LExcelData[LNumRow+1, 3] = unassigned);
...

вот не знаю на сколько это правильно?...

Имхо слишком мало информации о задаче. Точнее её нет от слова совсем.
А из общих соображений код

except
       on E: Exception do break;

это вредительство.