Ошибка exception eaccessviolation in module

procedure TMainForm.btnEx3Click(Sender: TObject);
begin
 Proizvodnie;
end;
//------------------------------------------------------
//  Задача 3.2  - Дифференцирование
//------------------------------------------------------
function TMainForm.Proizvodnie:real;
 
 
var
X:array of real;
Y:array of real;
D:array of real;
L:array of real;
M:integer;               // -  Число точек в таблице данных
D1,D2,D3:real;           // - значения правой, центральной и левой разноостей
h,s,r:real;
i,k:integer;
begin
h:=pi/90;
M:=StringGrid4.RowCount-1;
SetLength(y,M);
SetLength(x,M);
SetLength(d,M);
 
for i:=0 to M do
begin
r:=i*2;
y[i]:=sin(r*pi/180);
Stringgrid4.Cells[0,i+1]:=FloatToStr(R);
StringGrid4.Cells[1,i+1]:=FloatToStr(y[i]);
 
end;
d[0]:=(-y[2]+4*y[1]-3*y[0])/(2*h);
d[45]:=(3*y[45]-4*y[44]+y[43])/(2*h);
for i:=1 to m-1 do
begin
d[i]:=(y[i+1]-y[i-1])/(2*h);
StringGrid4.Cells[2,i+1]:=FloatToStrF(d[i],ffFixed,7,5);
end;
with StringGrid4 do
begin
Cells[2,1]:=FloatToStrF(d[0],ffFixed,7,5);
Cells[2,m]:=FloatToStrF(d[m],ffFixed,7,5);
end;
end;

for i:=1 to m-1 do
begin
d[i]:=(y[i+1]-y[i-1])/(2*h); // <--- Вот в этом месте
StringGrid4.Cells[2,i+1]:=FloatToStrF(d[i],ffFixed,7,5);
end;

for i:=0 to M do
begin
r:=i*2;
y[i]:=sin(r*pi/180); // <--- ты мало того, что вылезаешь за пределы массива ...

M := StringGrid4.RowCount ;
  SetLength(y, M);
  SetLength(x, M);
  SetLength(d, M);
 
  for i := 0 to M-1 do

for i := 0 to M-1 do