Delphi ругается на память при простейших действиях!!!

[chaplinn]

Ребята помогите пожалуйста! Я хочу разметить сетку stringgrid как координатную плоскость, со шкалами, а в первых ячейках будут номера делений жирным шрифтом. вроде все сделал правильно, а он ругается! Вот код, подскажите что мне делать!

procedure TForm1.FormCreate(Sender: TObject);
var m,n:integer;
b: array[0..127] of integer;
c: array[1..32] of integer;
begin
b[0]:=0;
for m:=0 to 127 do begin
stringgrid1.cells[m,0]:=inttostr(b[m]);
stringgrid1.Font.Style:=[fsbold];
b[m+1]:=b[m]+1;
end;
c[1]:=1;
for n:=1 to 31 do begin
stringgrid1.cells[0,1]:=inttostr(c[1]);
stringgrid1.Font.Style:=[fsbold];
c[n+1]:=c[n]+1;
end;
end;

А вот что за ошибка:

[Utkin]

stringgrid1.cells

Скорее всего, Вы обращаетесь к еще не созданному объекту.

[Stilet]

что мне делать!

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

[evg_m]

меню Project ->Options.
отметьте указанную красным опцию.
11.JPG
запустите программу, получите более точную ошибку.

b: array[0..127] of integer;
for m:=0 to 127 do begin
...
b[m+1]:=b[m]+1;
end;

m=127 b[128] не существует!

[chaplinn]

Спасиб ребят, помогло!