Ошибка в переменных

[Maugli-rus]

Посмотрите код:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
const
m=15;
c=15;
Var
 { m: integer; }
  i1:integer;
  i2:integer;
  j:integer;



  type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Button1: TButton;
    Edit9: TEdit;
    Label10: TLabel;
    Button2: TButton;
    Label11: TLabel;
    Button3: TButton;
    Button4: TButton;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  end;



 type TProduct=class
  public
   Name: string [15];
   ZatrEdProd : real;
   PriseEdProd : real;
   V_Prod : array[0..m] of real;
   A_Prod : array[0..m+1] of real;
   procedure PutV_Prod(i: integer);
   procedure PutA_Prod(i: integer);
  end;

  Tpredpr=class
   RezFin: real;
   Kredit: real;
   ZatrPost: real;
   betta: real;
   product:array[1..c] of Tproduct;
   procedure PutRezFin;
   procedure putKredit;
   procedure putZatrPost;
   procedure putbetta;
  end;

var
  Form2: TForm2;
  predpr: Tpredpr;

implementation

{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
   i1:=1; i2:=1;j:=1;
   Label9.Caption:='Период n-'+IntToStr(i1);
   Label11.Caption:='Период n-'+IntToStr(i2-1);
end;

procedure Tpredpr.PutRezFin;
begin
    RezFin:=StrToFloat(form2.edit1.text);
end;

procedure Tpredpr.putKredit;
begin
    Kredit:=StrToFloat(form2.edit2.Text);
end;

procedure Tpredpr.putZatrPost;
begin
    ZatrPost:=StrToFloat(form2.edit3.Text);
end;

procedure Tpredpr.putbetta;
begin
    betta:=StrToFloat(form2.edit4.Text);
end;

procedure Tproduct.PutV_Prod(i: integer);
begin
    V_Prod[i]:=StrToFloat(form2.Edit8.Text);
end;

procedure Tproduct.PutA_Prod(i: integer);
begin
    A_Prod[i]:=StrToFloat(form2.Edit9.Text);
end;


procedure TForm2.Button1Click(Sender: TObject);
begin
     predpr.product[j].PutV_Prod(i1);
    i1:=i1+1;
    Edit8.Text:='';

end;

end.

При выполнении procedure TForm2.Button1Click(Sender: TObject); выдаеться ошибка
Progect Labolatory.exe raised exception class EAceaaViolation with messafe 'Acess violation at address 00451406 in module 'Labolatory.exe'. Read of address 00000024. Process stopped.use step or Run to continue.'


Пожалуйста помогите

[Квэнди]

1.

i1:=1

зачем тогда объявляли массив с нуля ?

type TProduct=class

не лучший метод создавать корневой класс, так как в нем будут отсутствовать конструкторы и деструкторы, которые у вас вдобавок и не определены и не вызываются.
Прежде чем писать свой клас берем учебник по ООП и штудируем.

[Dunpeal]

Проверь, может у тебя выходит за границы массива product или V_Prod.
Массив V_Prod определён с 0 (т.е. 16 элементов в массиве), а запись начинается с 1 элемента, при i1=16 произойдёт выход за пределы масссива.