Проблема с treeview

[Ernest027]

Создаю узел:

sTreeView1.Items.Add(nil, 'Исходящие');

затем по нажатию на этот узел должно происходить следующее:

if sTreeView1.Items.Item[0].Selected then
begin
DBGridEh1.DataSource:=DataModule2.DataSource1;
datamodule2.ADOQuery1.Close;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('select * from LettersOutgoing order by LetterNumberOut DESC');
DataModule2.ADOQuery1.Open;
end;

выдает ошибку: List index out of bounds (0).

[xxbesoxx]

про компонента TreeView боле подробно можно почитать тут http://beluch.ru/progr/100comp/3_6_3.htm
1) из OnCreate

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TreeView1 do
  begin
    Items.Add(NIL,'Первое');
    Items.Add(NIL,'Второе');
  end;
end;

2) у TreeView событие OnDblClick

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
  if TreeView1.Items.item[0].Selected then
  begin
    ShowMessage('"Первое" ля-ля');
  end
  else
  if TreeView1.Items.item[1].Selected then
  begin
    ShowMessage('"Второе" ля-ля');
  end;
end;

end.