TTreeView - событие onClick - проверить на чем был клик

[[MoNAMur]]

Здравствуйте.
В компонент TTreeView подгружается дерево папок с диска(не суть важно откуда).
При клике на папку отображается информация о папке в TMemo в виде текста.
Нужно, чтобы код в обработчике события onclick отрабатывал только тогда, когда клик происходит по папке, а не на пустом месте TTreeView или крестике для раскрытия списка.

procedure TForm1.FoldersClick(Sender: TObject);
begin
if Folders.Selected <> nil then
  begin
    {... нужно чтобы этот код не исполнялся при клике на пустом месте или крестике для раскрытия списка ...}
  end;
end;

Подскажете, как правильно организовать проверку? В Sender всегда TTreeView.

[volvo877]

Ловить OnMouseDown вместо OnClick?

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  SelNode : TTreeNode;
begin
  SelNode := (Sender as TTreeView).GetNodeAt(X, Y);
  if (SelNode <> nil) and (SelNode.DisplayRect(true).Contains(Point(X, Y))) then
  begin
    // ...
  end;
end;

[Прик]

Нет, пожалуй, не OnMouseDown, а OnChange.
Клик, кликом, а только OnChange даст полную уверенность, что при переходе с одного элемента на другой и клавиатурой (не только мышкой), наша процедура отработает.

[[MoNAMur]]

Событие OnChange подошло, спасибо.