Возникает ошибка

[IvAlS2006]

Пытаюсь в цикле for пронумеровать строки в таблице StringGrid вот процедура цикла нумерации строк в 1-ом столбце таблицы
//////////////////////////////////////////////////////////////////////////////////////
procedure TForm5.num;// процедура нумерации строк в таблице стрингрид1 формы 2
var
a,b:integer;
begin
b:=Form2.StringGrid1.RowCount;
For a:=0 to b
do
begin
Form2.StringGrid1.Cells[0,a]:=IntToStr(a+1);
end;
end;
///////////////////////////////////////////////////////////////////////////////////////
При запуске процедуры возникает ошибка (запрос на игнорирование ошибки или закрытие формы ), при игнорировании ошибки все идет нормально, как сделать так чтоб ошибка игнорировалась по умолчанию (без подтверждения)?

[iskander]

А если попробовать так:

Код: Выделить всё

procedure TForm5.num;// процедура нумерации строк в таблице стрингрид1 формы 2
var
  a: Integer;
begin
  for a := 0 to Form2.StringGrid1.RowCount - 1 do
    Form2.StringGrid1.Cells[0,a] := IntToStr(a + 1);
end; 

[daesher]

У Вас b = RowCount, это на один больше номера последнего ряда (строки).