TreeView событие OnClick

[Alana]

Имеется компонент Treeview, данные берутся для него из таблицы базы.
Имеется процедура получения параметра StateIndex выбранного узла в дереве: (OnClick компоненнта TreeView1)

procedure TSwitch_streetForm.TreeView1Click(Sender: TObject);
var
sel: integer;
begin
sel:=TreeView1.Selected.StateIndex;
if sel=2 then
  begin
  sButton2.Enabled:=false;
  sButton3.Enabled:=false;
  sButton4.Enabled:=false;
  sButton5.Enabled:=true;
  sButton6.Enabled:=true
  end
  else
  begin
  sButton2.Enabled:=true;
  sButton3.Enabled:=true;
  sButton4.Enabled:=true;
  sButton5.Enabled:=false;
  sButton6.Enabled:=false;
  end;
end;

Проблема в том, что если щелкнуть не по узлу, а, например, развернуть узел или щелкнуть по пустому месту компонента, то вылетает, естественно, ошибка на строке sel:=TreeView1.Selected.StateIndex; Как это можно исправить? Подскажите, пожалуйста. Пока в голову ничего не пришло((

[mihali4]

Элементарно, Ватсон
Введите проверочку

if TreeView1.Selected=nil then
exit;

[Alana]

Блин, точно же, проверка на nil. Только сегодня разговаривали с другом про него. И ведь копала-то практически в том направлении, да не до конца Большое спасибо за подсказку))) Думаю, тему можно закрыть ))