[Freeman]

Внимание, правильный ответ:

Код:

begin
  with TreeView1.Selected do
    MoveTo(GetPrevSibling, naInsert);
end;