[Dead_Gigabit]

Подскажите пожалуйста в чем моя ошибка:

Код:

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
if form1.TreeView1.Selected.SelectedIndex=1
then
form3.Show;
end;
begin
if form1.TreeView1.Selected.SelectedIndex=2
then
form2.Show;

end.

выдает: access violation at address 004DBC9A in module