Подскажите как передать форму в другой модуль

[Litvinenko_A]

Здравствуйте. Подскажите, кто знает. Пишу приложение под MS Sql Server 2005.
Есть 3 формы: Form1 - окно, Form2 - дерево с выбором окна, Form3 - главная. В Form1 след. код

uses
Windows, Messages, SysUtils..., Form2;
...
private
{ Private declarations }
FNavigator: TForm2;
...
function TFormInventoryList.GetNavigatorForm: TForm;
begin
if not Assigned(FNavigator) then
begin
FNavigator:= TfrmInventoryNavigator.Create(Self);
end;
Result:= FNavigator;
end;{По этой функции в Form3 отображается дерево}
...

В Form2 заполняется дерево из базы. Есть проца

implementation
uses Form1;
{$R *.dfm}
...
procedure TForm2.SetNode(arg: Integer);
begin
if Node <> arg then begin
FNode := arg;
end;{это просто свойство с id выбранного узла} Form1.AdoInventory.Parameters.ParamByName('Invento ryCategory').Value:=Node;
Form1.AdoQuery1.ExecSQL;
end;
...

Когда выбираем какой-нибудь узел дерева, эта проца вызывает запроc, который выбирает значения из базы. Эти значения попадают в грид на форме Form1.
Но вот тут Form1.AdoInventory.Parameters.ParamByName('Invento ryCategory').Value:=Node;
FormInventoryList.AdoQuery1.ExecSQL;
начинет ругаться:
Project Proj1.exe raised exception class EAccessViolation with message 'Access violation at address 007FC6C5 in module 'Proj1.exe'. Read of address 00000364'.
Я так понял, что Form2 не получает доступа к Form1. Как передать Form1 в Form2.

[bondar yuriy]

А ты на всякий случай проверь в процедуре SetNode Assigned(Form1) :-)