[NIch]

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.

Я бы сделал так...

Код:

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
 //Если выделен 1 элемент
 if form1.TreeView1.Selected.SelectedIndex=1 then
 begin
  Form3 := TForm.Create;
  Try
   Form3.ShowModal;
  Finally
   Form3.Free;
  end;
 end;
 //Если выделен 2 эемент
 if form1.TreeView1.Selected.SelectedIndex=2 then
 begin
  Form2 := TForm.Create;
  Try
   Form2.ShowModal;
  Finally
   Form2.Free;
  end;
 end;
end;