Ошибка при показе формы.

[vedro-compota]

Здравствуйте, уважаемые форумчане ))
Пишу программу, которая создаёт дерево ( динамическая структура данных)
вот код основного модуля -

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var  p1,p,p1kop,p2: pelement;
     n,m : integer;
     x,y,xkop,ykop,leftx,lefty,
  rightx,righty,radius,otv:integer;
begin
  p1:=nil;
  n:=strtoint(edit1.Text);
  m:=0;
  sozdereva (p1,p,n,m );
  leftx:=-50;
  lefty:=40;
  rightx:=50;
  righty:=40;
  radius:=25;
  xkop:=500;
  ykop:=30;
  p1kop:=p1;
  p2:= p1;
  form2.Show;
  x:=form2.Width div 2;
  y:=40;
  risuemego (x,y,xkop,ykop,leftx,lefty,
  rightx,righty,radius, p1, p1kop ) ;

end;

end.

на выделенной строчке программа "вылетает" и компилятор выдаёт ошибку -
First chance exception at $7670FBAE. Exception class EAccessViolation with message 'Access violation at address 0044D37A in module 'Project1.exe'. Read of address 00000358'. Process Project1.exe (4224)
Подскажите пожалуйста- что это за ошибка?
Ведь в данной строке просто должна показываться дополнительная форма, а ошибка - как будто некорректного чтения памяти.........
Заранее благодарю.
вот код модуля, в котором процедура создания дерева:

implementation
procedure sozdereva (var p1: pelement; p: pelement; n,m:integer );
var uk: pelement;
begin
  if n<>0  then
  begin
    new(uk);
    if m=0 then uk^.infa:=0;
    if m=1 then uk^.infa:=1;
    if m=-1 then uk^.infa:=-1;
    uk^.left:=nil;
    uk^.left:=nil;
    if P1=NIL  then p1:=uk;
    m:=1;
    n:=n-1;
    sozdereva ( p1, uk^.left, n,m );
    m:=-1;
    sozdereva ( p1, uk^.right, n,m );
  end;
end;

end.

Выручайте ))
Прикрепляю архив.
--------------------------------------------------------------------------------
непонятно в какой строке ошибка - компилятор не выделяет её при запуске по F9 .

[ex.cluz]

Я не понял, а где у вас Form2?
Я ее создал, теперь она появляется и на ней даже рисунок появляется, но ошибка все равно вылезает, надо разбираться...

[vedro-compota]

ex.cluz, form2 в модуле holst.pas, вроде как...
ещё раз прицеплю архив. Все модули подключены.
-----------------------------------------------------------
ex.cluz, если не сложно - выложите архив, а то у меня form2 ни в каком виде не показывается))

[ex.cluz]

При чем тут *.pas? Формы в *.dfm хранятся. А он у вас не прицеплен к проекту был. Проверить можно так: Главное меню->Project->Options->Forms. Там только одна форма (Form1).

[vedro-compota]

но модуль-то прицеплен.....не понимаю))

[vedro-compota]

ex.cluz, огромное спасибо ! после подключения формы , указанным вами способом , всё заработало ))
но всё равно не понимаю - как подключить вторую форму программно? ведь модуль, в котором описаны её свойства я подключил......

[ex.cluz]

Главное меню->Project->Options->Forms
Переместить из Auto-create forms в Avaible.

[vedro-compota]

и что это значит? ))

[ex.cluz]

Что она не будет создаваться автоматически при запуске программы, а будет создаваться тогда, когда нажата кнопка (только там create прописать надо).

[vedro-compota]

видать, мы не поняли друг друга)) ну да ладно. ))))