TTreeView 如何判断有没有数据项的时候--针对没有数据的时候点击事件判断下

procedure TfrmMain.TopExceptionMemoList_tvClick(Sender: TObject);
var
  MyTopTradeApi: TTopTradeApi;
begin
  MyTopTradeApi := TTopTradeApi.Create;
  try
    //筛选
    //if TopExceptionMemoList_tv.Selected.Text <> ''----这样判断不行,因为没有数据就没有选中的项,所以会报错
    if TopExceptionMemoList_tv.Items.Count <> 0 then---//需要这样判断才可
    begin
      with frmClientDm.TopTradeShow_adoq do
      begin
        Close;
        SQL.Text := 'SELECT * FROM top_trade WHERE top_exception_status = 1 AND top_exception_memo = '+QuotedStr(TopExceptionMemoList_tv.Selected.Text);
        Open;
      end;
    end;
    //把之前选中的全取消
    MyTopTradeApi.UnXuanzhongAllTid;
  finally
    MyTopTradeApi.Free;
  end;
end;