[sorockinalex]

Ребят, опять аналогичная ошибка. не пойму опять...
Вторая форма в bpl пакете, вызывается динамически из главной формы пакета. OnClick никак не выполняется - AccessViolation при нажатии на '+'
Вот код вызываемой формы:

Код:

unit UAddEquipmentNumbers;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFAddEquipmentNumbers = class(TForm)
    Label1:TLabel;
    procedure FormCreate(Sender: TObject);
    procedure AddButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FAddEquipmentNumbers: TFAddEquipmentNumbers;


implementation

{$R *.dfm}

var
  numberEdit, birthyearEdit :array of TEdit;
  addButton:TButton;

procedure TFAddEquipmentNumbers.FormCreate(Sender: TObject);
begin
  SetLength(numberEdit,1);
  SetLength(birthyearEdit,1);

  NumberEdit[0]:=TEdit.Create(Self);
  NumberEdit[0].Parent:=Self;
  NumberEdit[0].Left:=8;
  NumberEdit[0].Top:=64;
  NumberEdit[0].Width:=65;
  NumberEdit[0].Height:=21;
  NumberEdit[0].Visible:=true;
  NumberEdit[0].Enabled:=true;

  birthyearEdit[0]:=TEdit.Create(Self);
  birthyearEdit[0].Parent:=Self;
  birthyearEdit[0].Left:=81;
  birthyearEdit[0].Top:=64;
  birthyearEdit[0].Width:=65;
  birthyearEdit[0].Height:=21;
  birthyearEdit[0].Visible:=true;
  birthyearEdit[0].Enabled:=true;

  addButton:=TButton.Create(Self);
  addButton.Parent:=Self;
  addButton.Left:=154;
  addButton.Top:=64;
  addButton.Width:=21;
  addButton.Height:=21;
  addButton.Visible:=true;
  addButton.Enabled:=true;
  addButton.Caption:='+';
  addButton.OnClick:=FAddEquipmentNumbers.AddButtonClick;
end;

procedure TFAddEquipmentNumbers.AddButtonClick(Sender: TObject);
begin
//
  SetLength(numberEdit,Length(numberEdit)+1);
  SetLength(birthyearEdit,Length(birthyearEdit)+1);

  NumberEdit[Length(numberEdit)-1].Left:=8;
  NumberEdit[Length(numberEdit)-1].Top:=NumberEdit[Length(numberEdit)-2].Top+NumberEdit[Length(numberEdit)-2].Height+8;
  NumberEdit[Length(numberEdit)-1].Width:=65;
  NumberEdit[Length(numberEdit)-1].Height:=21;
  NumberEdit[Length(numberEdit)-1].Visible:=true;
  NumberEdit[Length(numberEdit)-1].Enabled:=true;

  birthyearEdit[Length(birthyearEdit)-1].Left:=81;
  birthyearEdit[Length(birthyearEdit)-1].Top:=birthyearEdit[Length(birthyearEdit)-2].Top+birthyearEdit[Length(birthyearEdit)-2].Height+8;
  birthyearEdit[Length(birthyearEdit)-1].Width:=65;
  birthyearEdit[Length(birthyearEdit)-1].Height:=21;
  birthyearEdit[Length(birthyearEdit)-1].Visible:=true;
  birthyearEdit[Length(birthyearEdit)-1].Enabled:=true;

  addButton.Top:=NumberEdit[Length(numberEdit)-1].Top;
end;

end.