[TOJluK]

Примерно так:

Код:

if TreeView1.Selected.HasChildren then
 begin
// код для непустого узла
 end
 else
   begin
   TreeView1.Selected:=TreeView1.Selected.GetNext;
   TreeView1.Selected.Expanded:=True;
   end;